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l. INTRODUCTION 


A. BACKGROUND 

Tne conduct of military operations is inextricably interwoven with the abilitv to 
support them. One of the five Principles of War, Mass, has as its premise that superior 
combat power must be concentrated at the decisive place and time in order to achieve 
decisive results. Logistics planning is fundamental to achieving this aim. It defines 
realistic scenarios for the study of alternative courses of action, and determines directly 
the length of time that weapons and units can be effective. 

In the United States Army, the tactical commander is responsible for logistics 
planning. He normally has assigned to him certain staff who assist him in estimating 
the logistics requirements of anticipated or considered actions, and in incorporating 
whatever limitations exist into his battle planning. Logistics planning at this level is 
dominated bv the creation of estimates and the reporting of equipment, supply, and 
personnel status. Logistics estimates are created often and represent a significant work 
load for those soldiers whose job it is to produce them for the commander. 

There are currently no automated methods for assisting the tactical logistics 
planner in creating such estimates. Training Management and Control System 
(TMACS) is a software system currently in use in the Army which assists operational 
planners in programming and budgeting time. money, and supplies for training 
exercises [Ref l]. It does not, however, satisfy the need for an automated aim 
preparing logistics estimates for actual tactical operations and in the conduct of 
contingency planning. 

At the same time, the military of the Soviet Union places great emphasis on 
automated means for enhancing their theory of control. The use of computers to 
perform referencing and calculations is actively pursued. Specifically, the referencing of 
applicable planning factors and execution of mathematical formulae in combat 
planning is an area in which they have exhibited considerable interest [Ref. 2]. 

This thesis investigates the nature of logistics estimation in the tactical 
environment. It identifies the merits of employing an automated system to perform 
some of the current labor-intensive manual referencing of equations and planning 


factors involved in creating a logistics estimate. A prototype of such an automated 


oe 


system is one of the products of this research. Execution of the prototype on a sample 
database produces output that 1s easily understood by the logistics planner, and offers 
significant time savings in the preparation of logistics estimates. 

Reasoning is used in the prototype system in an attempt to provide more 
accurate logistics estimates than are currently provided by strict adherence to the 
procedures outlined in current Army planning documents. The reasoning algorithm is 
the most interesting facet of the prototype. The aim of all of this work is to provide 
the logistics planner with an aid in providing timely, useable, and well considered 


logistics estimates to the battlefield commander. 


B. RESEARCH TOPICS 

The first area of research centers around the process by which logistics estimates 
are created today. This process is strictly manual. A single reference document, Army 
field manual FM 101-10-1, contains equations and planning factors which the logistics 
planner uses in calculating the quantity of several supply items required to conduct an 
operation [Ref. 3]. The equations and planning factors used in these calculations are 
dependent upon several key descriptions about the operation for which the estimate is 
being prepared. The following tasks need to be performed by an automated svstem to 
duplicate the actions of the human logistics planner: 


1. identification of which attributes of an operation are critical to the selection of 
appropriate equations and planning factors needed to calculate logistics 
estimates 


a) 


determination of how such information can best be obtained from the user of 
the prototype program 


performance of the aforementioned references and calculations. 


Low) 


The second area of research is concerned with reasoning about the similarity 
between operations. Operations which have the same value for certain key operation 
attributes can be considered analogous to the current operation. These analogies are 
then evaluated to determine the strength of the similarity between them and the current 
operation. The criteria used to establish the analogous nature of previous operations 
and the criteria used to establish the strength of the similarity between operations are 
both defined in the program, but can easily be modified to reflect user guidelines. Once 
tne strongest analogies to the current operation have been determined, research into 
how the data contained in the historical records of these operations can be used to 


adjust the previously calculated estimates can be pursued. 


The third area of research involves determining the method by which adjustments 
to the original logistics estimates are made. Analogous historical records contain 
information on both the original estimate and the actual consumption for each of the 
items of supply for which the program creates an estimate. The error percentage for 
each of tne three strongest analogies in estimating the actual consumption of each of 
the supply items is calculated. Originally, an equal weighting of the error percentages 
calculated for the three strongest analogies was used to adjust the estimates for the 
current operation. The final version of the prototype handles the weighting somewhat 
differently. Specifically, the error percentages are weighted according to the strength of 
the similarity between the operation which generated them and the current operation. 
The composite error percentage is then used in a calculation which yields an 
adjustment to the original estimate. 

The fourth area of research deals with the format and structure of program input 
and output. The deciston was made to utilize menus as much as possible for input 
from the user. Errors are common when using a program of this sort. Where menus 
are not practical, escape routines were included to allow recovery from input errors. 
Well structured, explanatory output is extremely valuable in understanding the 
behavior of the program. An effort was made to produce one page documents. The 
reasoning algorithm of the program is illustrated in tabular, one page summaries to 


assist the user in understanding how the reasoning is conducted. 


C. THESIS ORGANIZATION 

Chapter Ii discusses the manner in which tactical logistics planning is conducted 
today. The data elements needed to conduct such planning are identified and their 
relationship to the key operational planning document, the operation order 
(OPORDER), is explained. The linear equation model used to calculate logistics 
estimates is outlined, as well as the source and questionable validity of the planning 
factors. The difficulties faced by the tactical logistics planner in producing logistics 
estimates are identified. A short discussion on the type of reasoning expected of the 
logistics planner in creating estimates concludes the chapter. 

Chapter III outlines an artificial-intelligence approach to creating the logistics 
estimate. An initial discussion identifies the anticipated benefits of using an automated 
aid in assisting the logistics planner in creating the estimate. A lengthy discussion of 
the reasoning done in the program follows. Specificallv, the use of reasoning to 


identify the similarity between operations is described. Examples are given to ulustrate 


ee med 
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how reasoning is actually conducted in the program. The examples are helpful in 
understanding the two step approach to analogy evaluation and the selection of 
Operation records for inclusion in the algorithm for adjusting estimates. The 
impertance of simple input and output formats is highlighted, with emphasis on 
designing program output that reflects the reasoning which takes place in a program. 
High-level design decisions in development of the prototype are explained and program 
behavior 1s described in detail. 

Chapter IV discusses the potential of the thesis for assisting the tactical logistics 
planner in creating logistics estimates. The program represents a new approach to 
creating these estimates by applying real-world experience in adjusting estimates. 
Limitations of the program are discussed, as well as possible enhancements. The 
concluding discussion of the chapter identifies how the application of an automated 
logistics planning system of this type could be used in other related problem domains. 

The appendices are vital to understanding the workings of the program. 
Appendix A and Appendix B are demonstrations of the program execution of the 
logistics-estimate-creation module of the program. The demonstrations involve two 
very different operations. The logistics estimate created in Appendix A is for an 
operation conducted in Europe tn a temperate environment. The logistics estimate 
created in Appendix B is for an operation conducted in Korea in a cold environment. 
Each demonstration includes the following items: 


!, a sample interactive session in which the user inputs the numbers of weapons 
and major end items in the task force 


to 


a sample interactive session in which the user assign values to several attributes 
describing the operation 


a One page document produced by the program listing all operations which 
meet the criteria for being considered analogous to the current operation 


Le 


4. a series of one page documents illustrating the reasoning in the program 
determining the strongest analogies to the current program for each categorv of 
supply 


A 


a logistics estimate for the operation. 
Appendix C contains sample program execution of the other modules of the 
program. There is a sample interactive session which updates the historical record of 
an Operation with actual consumpiion data. There is a sample interactive session 
which deletes the historical record of an operation from the historical files maintained 


by the program. There is a sample output produced by selecting the print-directory 


1] 


module of the program which hsts the unit name, date, and update status for all 

Operations in the historical files. Appendix C also contains a sample of the historical 

record for an operation produced by the print-history module of the program. 
Appendix D is the program implemented in Pascal. Appendix E is a partial 


implementation of the program in Common Lisp. 


ll 


I]. PROBLEM DEFINITION 


A. TACTICAL LOGISTICS PLANNING TODAY 
In tactical units of the United States Army, the staff officer charged with the 

creation of logistics estimates on behalf of the commander is the G4/S4 officer. A 
typical logistics plan might include estimates for the following categones of supphes: 

fee cater 

2. subsistence 

Bee (uel 

4. ammunition 

5, general supplies. 
To calculate estumates for supply items in each of these categories, the G4,S4 uses 
equations contained in Army field manual FM 101-10-]. These equations can be 
thought of as rules. Certain attributes of an operation determine either individually or 
in combination the equation to be used in calculating specific estimates. These 
attributes are contained in a kev operational planning document called the operation 
order (OPORDER). The G4;S4 must obtain a draft of the OPORDER or ctherwise 
reference these data elements before a logistics plan can be prepared. Attributes which 
directly influence how an operation is conducted and the tvpe and quantity of supplies 
consumed in its execution include the following: 

|. mussion to be performed 
climate in which the operation is to be conducted 
3. area of the world in which the operation is to be conducted 
4. type, size. and personnel strength of the task force 
3. eXpected intensity of combat 

6. ration policy during the operation. 
There are many other factors which impact on the conduct of an operation. Current 
Army planning documents, however, use only the six attributes identified above in 
selecting appropriate equations from FM 101-10-1. The G4/S4 manually references the 
aforementioned attributes of an operation and indexes both an equation and a 
planning factor for use in calculating specific supply estimates. These attributes are 


contained in the operation order (OPORDER) for the operation. 
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For exampie, to calculate the expenditure of 5.56mm rifle ammunition, the 
following steps are taken. First, the mission and anticipated combat intensity of the 
operation are identified. Second, the attributes are used to select the appropriate 
equation anc planning factor from the section in FM 101-10-1 covering ammunition 
estimates. In this case, the general equation to estimate 5.56mm rifle ammunition ts: 

weapons * planning factor = estimate. 
Maintaining data on the number of rifles in the task force which expend 5.56mm 
ammunition 1s another task which the logistics planner is charged to perform. The 
same methodology 1s used for the other estimates. 

The equations used to create the supply estimates are simple and easy to 
understand. The equations make intuitive sense as they are a function of the number 
of rifles in the task force and a single planning factor. The planning factors themselves 
are another subject. There has been much debate regarding their validitv. Much of 
the data in FM 101-10-1 was originallv based upon experience in World War II and 
Korea. Changes to the data have been made to reflect more recent experience and the 
results of combat modelling and simulation, but distrust of the accuracy of the 
planning factors continues. [Ref. 4] 

The current method of creating estimates has another more serious shortconung. 
The planning factors used in the simple linear equation model described above yield, at 
best, very generalized estimates. The data does not explicitly account for variabie 
factors such as visibility, terrain, and the availability of close air support. Each of 
these impact significantly on the conduct of combat operations and on the rate at 
which supplies are consumed. It is necessary. therefore, that the logistics planner apply 
reasoned judgement in adjusting the estimates to reflect the particular set of attributes 
of the current operation. 

There is no standard policy or guideline for the logistics planner to follow in 
making these reasoned judgements. Every commander hopes to have an experienced 
logistics planner who can rely upon personal experience or insightful after-action- 
reports to provide the basis for adjusting the standard estimates. All too oiten. the 
conimander is without such a key individual. In addition, the commander and the rest 
of his staff continually create contingency and alternative operation plans. These plans 
require that logistics planning be conducted with a corresponding cost in time and 
effort. The logistics planner is seenungly always late in delivering logistics estimates to 
the conimander while attempting to produce complete, researched, and well prepared 


plans. 
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An additional concern of the tactical logistics planner is the recording and 
retrieval of data on the actual consumption of supplies. A complete accounting of the 
logistically significant data about an operation 1s valuable in preparing future logistics 
estimates. A logistics estimate of an operation, together with corresponding actual 
consumption data for that operation, support the kind of reasoning described earlier. 
The time and effort it takes to record actual consumption data and link it with its 
associated logistics estimate often frustrates intentions to create complete historical 
records. The result is that such historical records do not exist in many units. When 
new personnel arrive and assume responsibility for logistics planning in the unit, thev 
are without the benefit of historical data on which to base their estimates. 

In partial summary, the Army realizes that reliance upon the equations in FM 
101-10-1 will not yield acceptable estimates in all cases. The current method of 
computing estimates is simple to follow, but requires a considerable amount of the 
logistics planner’s most precious commodity--time. There is also an acknowledged 
need for applying experience in logistics planning to the job of improving the accuracy 
of these general estimates. Experience is a hard thing to quantify, however, and many 
tactical logistics planners are not experienced. For these reasons, anv system which 
significantly assists the logistics planner in creating estimates and performing associated 


tasks without imposing additional requirements would be of great value. 


B. SURVEY OF PREVIOUS RELATED WORK 

Commercially available spreadsheet programs perform the kind of referencing 
and calculations involved in creating logistics estimates as directed in current Armv 
planning documents. Spreadsheets have been used in many business applications. 
They are able to adjust previous data to reflect changes in the values of program 
variables. The United States Army Logistics Center has developed several templates 
using a popular spreadsheet program, LOTUS 1-2-3. The templates use this program 
to create logistics estimates with equations and planning factors obtained from FM 
101-10-1 and variables representing the personnel strength and the equipment 
composition of a task force. The templates are intended for use by logistics planners in 
creating estimates for Class I (subsistence) and Class II] (POL) supply items. There 
are no templates currently developed to assist the logistics planner in creating logistics 


estimates for supply items in the other categories of supply. 


The templates have two major limitations. First, each of the templates is written 
to run independently. This means that a logistics planner who desires to run both of 
these programs must run them separately. The estimates generated by the two 
programs must be abstracted onto a single document along with estimates for other 
supply items when creating an overall estimate for the operation being conducted. 
Second, the template used to create these logistics estimates assumes a static task force 
composition. The templates use the authorized numbers of personnel and equipment 
for the unit rather than the actual numbers taking part in the operation. The 
authorization document used for this purpose is tne Modified Table of Organization 
and Equipment (MTOE) for the unit. The templates provide a valuable service to the 
logistics planner by automatically completing required paper work for requisitioning 
supplies. The inflexibility of the templates in accepting changes to the task force 
composition, however, causes them to fail to make full use of the power=@nsine 
spreadsheet program, and limits the utility of the templates as an automated planning 
fOOL 

There has been little published on the use of analogies in creating logistics 
estimates. [uch of the literature in operations research focuses on the use of 
numerical analysis in creating and revising estimates [Ref. 5]. Strictly numeric 
techniques, however, sometimes fail to model and predict physical phenomenon. 
Optimization techniques invelving numerical analysis do not work when the result of 
the analysis is a guess or estiniate of a future outcome [Ref. 6]. Such techniques are 
best suited to problems where the possible outcomes are known in advance. Logistics 
estimation at the tactical level is not an exact science and 1s resistant to attempts at 
applying such techniques. Non-numeric reasoning, called heuristic reasoning, has 
proven valuable in prediction and forecasting when numerical analysis has proven 
difficult or unacceptably costly. While the use of heuristics does not guarantee optima! 
solution, 11 can produce acceptable results. 

Reasoning about the similarities between situations is an interesting subject in 
artificial intelligence research that has promise for assisting the prediction efforts of 
logisticians [Ref. 7]. Psychometric literature includes research describing how humans 
search for similarities between previous and new situations in an attempt to exploit 
knowledge about previous situations in order to improve current performance [Ref. 8]. 
These parallel academic research efforts support the research of this thesis in 


investigating the possible use of historical analogies to construct logistics estiniates. 
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Some situations can be described by attributes or properties. It may be helpful 
to compare the values for certain attributes or properties of one situation with the 
values for the same attributes or properties of other situations in an attempt to 
establish the similarities between them. If similarities between situations exist, then it 
may be possible to infer some information about one such situation from information 
already available about the other. With regard to logistics estimates, the influence of 
certain operation attributes on the actual consumption of individual supply items nught 
be able to be inferred from available data on the actual consumption of supplies of 
previously conducted operations. While the use of this technique to improve the 
accuracy of tactical logistics estimates has not been explicitly detaiied in technical 
literature, it conceivably offers great potential as an estimation tool for the logistics 


planner. 
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iY. PROGRAM DESIGN AND IMPLEMENTATION 


A. MAJOR PROGRAM FUNCTIONS 

The program was designed to assist the tactical logistics planner in performing 
manv of the tasks associated with creating logistics estimates. To this end, there are 
five major functions performed by the program. 

The first and most important function is to create a logistics estimate for an 
Operation using information supplied by the user in an interactive session and with 
data retrieved from historical files maintained in secondary storage. This function is 
the real heart of the program. It references equations, performs calculations, and 
contains code that reasons about the similarity of operations. The output generated by 
this part of the program is of particular interest and is discussed later in the chapter. 

The second function performed by the program is to update a record of a 
logistics estimate with data on the actual consumption resulting from the conduct of an 
operation. This function would be employed after an operation had already been 
conducted. and supplements or replaces much of the effort spent in preparing logistics 
aiter-action reports. The value of this function hes not only in its automation of the 
report generation task, but also in the storage of this information in the same data 
structure as the original logistics estimate for easv retrieval and logical representation. 

The third function is to delete from the historical files the record of a previously 
created logistics estimate. Deletions of this sort are desireable when an operation for 
which a logistics estimate has been created is not conducted. If the actual 
consumption data in the record is significantly influenced by a factor which is 
considered an abnormal occurrence, the logistics planner may want to preclude its use 
in future program references by deleting it from the historical files. Another 
implementation might use a boolean flag for this purpose. 

A fourth function is to print a directory with data on all the records of logistics 
estimates in the historical files. This is an important program function because it 
provides the user of the program with visibility over records currently in the historical 
files without using some of the more complex functions of the program. One of the 
data elements displayed in the directory output is whether or not each of the logistics 
estimates has been updated. This provides an easy method for the logistics planner to 


see Whether an update needs to be made to a particular logistics estimate. 
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The last function of the program provides the capability of searching through the 
historical files which the program has previously created and prints a one page 
summary of all of the critical information associated with each of the operations. Such 
information includes not oniy the original logistics estimate, but also actual 
consumption data for each of the items of supplies for which an estimate was prepared. 
This data would be input using the record update function of the program previously 
described. 

Figure 3.1 shows the top level design of the program. Each of the program 


functions described in this section is implemented as a module in the program. 





program 
planner | 
log update delete print print 
estimate record record directory history 


——— ee 


Figure 3.1 Program Top Level Design. 


B. DATA STRUCTURES 

The key design decision with regard to data structures was the manner in which 
all of the information regarding the creation of a logistics estimate would be stored. A 
record called an oprecord (operation record) was chosen. It contains fields which 
describe all of the scenario data used by the program to create a general estimate for 
each of the supply items for which the program creates an estimate. Additional 


scenario data is collected and stored for the purpose of reasoning about the similarities 
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between operations. [The oprecord also contains a multi-dimensional array named 
consumption Which contains information about each of the supply items for which the 


program creates an estimate. This information includes : 


ps 


supply item name 


ty 


general estimate for the supply item generated by performing the calculation of 
equations referenced from Fm 101-10-! and using planning factors found in 
reference 4 


(se 


adjustments to this estimate determined by the reasoning and adjustment 
techniques of the program 


4. revised estimate obtained by adding the general estimate and the adjustment 


actual consumption of the supply item during the conduct of the operation, if 
such data has been placed into the record. 


Information about the composition of the task force conducting the operation is 
stored in an array called task force. The information contained in this data structure 1s 
not permanent and 1s lost after the logistics estimate function of the program has 
completed execution. 

The choices for data structures in Pascal are satisfactorv [{Ref. 9]. The 
availability of user-defined file types made file input and output straightforward. After 
programming portions of the program in LISP as part of other course work, LISP 
appears to be at least as desirable a programming language for an application of this 
sort [Ref. 10]. In particular, LISP structures and flavors require fewer variable 
declarations, and results in program code that is easier to read. They also offer no 
temptation to relv on function side effects to assign values to fields in data structures. 


A partial implementation of the program in Common Lisp 1s included as Appendix E. 


C. CREATING A LOGISTICS ESTIMATE 
1. input 

The first input expected from the user after selecting the log-estimate module 
of the program is the composition of the task force conducting the operation. An 
example interactive session in which the user supplies the number of each kind of 
weapon and major end item is found in Appendix A. The selection of weapons and 
major end items included in the program was a design decision. A major criterion for 
inclusion was the availability of planning factor data in FM 1!01-10-1 and other widely 
used planning references [Ref. 4]. 

The program then proceeds to query the user about Certain altnbutes 


Gescribing the operation for which the program will create a logistics estimate. 
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Examples of the queries posed to the user are contained in the demonstrations in 
Appendix A and Appendix B. User responses to these queries are stored in the 
operation record (oprecord) identified earlier. 

An important design decision in handling program input from the user was 
reliance on menus. The program is intended to serve as a prototype of an actual 
logistics planning tool. The use of menus reduces the potential for user input errors 
when the program is used in the field where unfamiliar users may enter erroneous 
information. In addition, menus support the use of enumerated types. Enumerated 
types were deemed important in promoting clarity when reading the program and 
studying its design. The cost of using menus is more extensive input procedure coding. 

A special point is made to ensure that the program does not impose any 
additional data gathering requirements upon the logistics planner bevond those 
currently in effect. All of the data requested by the program of the user is contained in 
the operational planning document called the OPORDER (operation order) or its draft 
referred to in Chapter I. The logistics planner can answer all program queries using 
onlv those sources of information to which he/she has routine accesss. In event that 
the operation order itself is automated, user input of some of this data might not be 
required. 

2. Database Operations and General-estimate Calculation 

The equations and planning factors used in calculating the general logistics 
estimates are implemented as procedures with extensive parameter lists. Information 
about the composition of the task force and certain aspects of the operation scenario 
Meewusec tO Select the correct equations and variable values. The result of these 
calculations is the general estimate, and is equal to the result obtained by referencing 
FM 101-10-1 and performing the mathematics manually. This portion of the program 
is a single-purpose database algorithm. The computer performs this operation much 
faster, and with greater reliability than can a human. The estimates created bv these 
calculations are then stored in the operation record (oprecord) of the logistics estimate. 

A restriction of the program implementation is the use of array indices to 
reference task force data. Knowledge of the data structure containing information on 
the composition of the task force is used in performing the database operations. The 
referencing of this data could be accomplished differently. A Line Item Number (LIN) 
is uniquely associated with every weapon and major end item in the Army inventory. 


Program implementation could be changed to use this attribute to reference task force 


composition rather than relying on data structure knowledge. This would be especially 
useful in an environment where the tvpe of weapons and major end items were not 
constant. It also supports the principle of information hiding [Ref. 11]. 

3. Reasoning 

The apparently intelligent behavior of the program is the result of the 
reasoning it does about the similarity between the current operation and previous 
operations existing in the historical files maintained by the program. The program 
accomiplishes this kind of reasoning by comparing the values for attributes in the 
description of each previous operation with the values for the same attributes in the 
current operation. The program uses a formula to determine the strength of the 
similarity between the two operations. All previous operations are evaluated in this 
manner. Data contained in the operation records of the three most similar previous 
operations will be used in an adjustment algorithm to refine the general estimates 
calculated earlier, yielding more accurate estimates. 

The first phase of the reasoning process identifies all of the previous 
operations that are considered analogous to the current operation. For a previous 
Operation to be considered analogous, it must mect the following criteria. 

1. The previous operation has actual consumption data. 
2. The previous operation and the current operation must have the same mussion. 


3. The previous operation and the current operation must take place in the same 
area. 


4. The previous operation and the current operation must take place in the same 
climate. 


5. The previous operation and the current operation must take place under the 
same chemical defense posture. 


6. The previous operation and the current operation must have the same combat 
intensity. 


7. The previous operation and the current operation were both first day 
engagements or succeeding dav engagements. 


All previous operations are analyzed and a list of analogous operations created. The 
program generates output showing all previous operations meeting this criteria and 
considered analogous to the current operation. Examples of this output are found in 
Appendix A and Appendix B under the heading, Analogy Reasoning. 

The list of analogous operations is treated as a candidate list from which up to 


three operations will be selected as input into an adjustment algorithm. The action of 


the adjustment algorithm is to reflect knowledge about the past consumption of 
supplies in’ adjusting the general estimates obtained through the database 
computations. 

The second phase of reasoning determines which of the candidate operations 
will be selected for the purpose of adjusting estimates. The program performs this 
reasoning by evaluating certain attributes of the scenario descriptions of all of the 
candidate operations, and allocates analogy strength points to operations which have 
the same values for those attribute as does the current operation. The three candidate 
Operations with the greatest analogy strength points are selected for use in the 
adjustment algorithm. 

icmsepiisiicAlion. Of Ine tsecond pnase Of teasonime docs mot end here. [The 
supply items for which the program creates logistics estimates are grouped into five 
categories. The consumption rates for the supplv items in each of the categories are 
assumed to be directly influenced by the same set of operation attributes as are the 
other supply items in their category. The program is able to reason about which 
candidate operations are the strongest analogies to the current operation in each of 
these categories independently. This is important since the ccnsumption rates of 
supply items within different categories of supply are influenced to varying degrees by 
similar factors and by different conditions than are supply items in other categories. 
The program adjusts the estimates of supply items in each of the categories by using 
the strongest analogies to the current operation for those attributes influencing 
consumption of supply items in that category. In this way, the program makes the 
most effective use of the data available on previous operations. The five categories of 
supply considered by the program are : 

eee ater 

2. subsistence 

E> fuel 

4. ammunition 

Se general supplies. 

The attributes of an operation which are used in determining the strongest 
analogies in each of these categories are identified in the program output. Factors 
influencing the consumption rates of supplies are not equally significant. The program 
applies weighting factors to each attribute and sums the value of all attributes in 


determining the total strength points for a particular operation. Appendix A and 


Appendix B both contain program output which illustrates this reasoning. Those 
entries in which a “yes” 1s marked had a match between the attribute value in the 
previous operation and the attribute value in the current operation. The weighting 
given to each of the attributes is found in parenthesis under the attribute name. 

[t is important to note the adaptability of this form of reasoning. Any change 
in attributes used in performing the kind of reasoning contained in the program can be 
easily made. Changes to the weighting given to any of the attributes can be changed 
by modifying a single value in the code. The analyst or combat modeler can change 
the action of the program by modifving the identity or the weightings given to 
attributes of the operation to reflect more accurately the influence of operation 
attributes affecting the consumption of supplies. 

4. Adjustment Algorithm 

After the strongest analogies for each of the categories of supply items have 
been determined, an adjustment to the general estimate for each of the supply items 
computed. The adjustment algorithm works this way. 

An error percentage 1s calculated for each of the analogies with respect to the 
particular suppiv item being considered. This is done by taking the difference between 
the actual consumiption and the general estimate for the supply item and dividing it by 
the general estimate. Once this has been done for each of the analogous operations, 
these error percentages are weighted by the analogy strengths of the operations from 
which they were calculated, and averaged together. The resultant error percentage 1s 
then multiplied by the general estimate for the same supply item in the current logistics 
estimate. The result is stored as the adjustment to this general estimate. In computing 
the final estimate for the supply item, the adjustment 1s added to the general estimate. 
Adjustments can be be positive, negative, or zero. 

There are several ways in which the error percentages of the three Stromeeas 
analogies can be averaged. One way is to weight the error percentages equally. 
Another wav is to place greater weight on the error percentages obtained from more 
recently conducted operations. The current weighting strategy places greater weight on 
the error percentages of the strongest analogies. Testing of the results of the program 
has not been done, but this weighting strategv 1s expected to vield more accurate 


adjustments than other strategies. 


= 
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5. Output 

The program output generated by this function of the program has already 
been partially described. The logistics estimate itself is a one page document found in 
both Appendix A and Appendix B. The top half of the document contains a summary 
of the attributes of the overation. Next, a brief summary of the previous analogous 
Operations used in the adjustment algorithm is provided. At present, this information 
pertains only to the ammunition adjustments. Ammunition adjustments are considered 
to be of particular interest since the majority of the estimates which the program 
creates are for ammunition supply items. At the bottom of the document 1s the 


logistics estimate for the operation. The document is otherwise self-explanatory. 


D. UPDATING RECORDS 

This function of the program Is critical to the reasoning performed in the creation 
of the logistics estimate. After an operation has been conducted, one of the tasks 
required of the tactical logistics planner is to collect data on all of the supplies 
consumed. Such information is passed up the chain of command to satisfy reporting 
requirements, and retained by the unit conducting the operation for future planning 
purposes. The record update function of the program automates this task, and stores 
the actual consumption data in the same data structure as the original logistics 
estimate for that operation for future reference. An example of an interactive session 
which queries the user for the actual consumption data and acknowledges the update 


of the historical record of that operation 1s found in Appendix C. 


E. DELETING RECORDS 

Not all of the operations for which logistics estimates are created will actually be 
conducted. [In other cases, the actual consumption figures for an operation may be 
suspect or otherwise undesireable for use in adjusting future logistics estimates. The 
usefulness of retaining such records in secondary storage is questionable. The program 
allows the records of such operations to be deleted. An example of an interactive user 


session using this function of the program is found in Appendix C. 


F, PRINTING A DIRECTORY 
This function is useful for the reasons discussed earlier. The information it 
provides is all that is necessary to uniquely identify each of the operations, unless more 


than one operation with the same mission for the same unit on the same day 1s created. 
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An additional identifier would then be necessarv. Aside from listing all of the 
Operations residing in secondary storage, this function identifies whether each 
Operation has been updated or not. If a record has been updated, then the source of 
the update information is provided. The sources of update information are factual data 
and estimates. An example of the output generated by the print directory function of 


the program is found in Appendix C. 


G. PRINTING HISTORICAL RECORDS 

This function of the program generates one page summaries of all of the 
information available on each of the operations for which it has created a logistics 
estunate. Such a summary is invaluable to a logistics planner. It represents a 
significant effort in researching historical files and presenting the contents of the files in 
a clear and understandable format. This function of the program could be modified to 
produce the historical record of a single specified operation, rather than the records of 
all operations in the historical files. An example of the historical record of an 


operation is found in Appendix C. 
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1V. CONCLUSIONS 


A. PROGRAM STRENGTHS 

The program takes a different approach to the creation of logistics estimates 
from the one currently used by Army logistics planners. It automates the references 
and calculations performed by logistics planners in constructing estimates using Army 
directed algorithms. The program performs these tasks with significant benefits to the 
logistics planner. The programs fast, reliable, and tireless. It automates many of the 
other administrative tasks performed by the logistics planner in updating the historical 
records of operations and frees the logistics planner to do other things. 

In addition to its automation benefits, the program conducts analysis that was 
heretofore conducted onlv by experienced or enterprising logisticians. This analvsis 
takes the form of reasoning about the similarity between operations. and the evaluation 
of existing historical records. This tvpe of reasoning is essential to improving the 
accuracy of logistics estimates generated by current estimation techniques. The ability 
of the logistics planner to direct the reasoning of his automated aid in revising 
estimates 1s extremely powerful. It allows the logistics planner to instantly respond to 
changing conditions in operational planning. and assists the logistics planner in 
creating consistent, reasoned estimates even when he/she lacks the requisite personal 
experience to conduct such reasoning. Logistics planners outside the Arniy can also 
benefit from such a reasoning facility. Inventory managers and production planners 
spend considerable time creating and revising estimates. The reasoning contained in 


the program could be adapted to assist them. 


B. PROGRAM LIMITATIONS 

The program does not create estimates for all of the supplv items with which the 
logistics planner would be concerned. Likewise, it does not accept information on all 
of the different types and models of weapons and major end items which are currently 
In use in the field. One reason for these obvious limitations is that the program was 
designed as a prototype. The program needed to demonstrate function, not 
completeness. A _ serious factor affecting future efforts in the development of 
automated logistics planning aids of this type, however, is storage. Principally. the 


concern 1s main memory availability. The template used to create the task force in the 
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program was arbitrarily chosen. It was certainly a very small subset of the total 
inventory of weapons and major end items in the Army inventory. 

A complete database of all weapons and major end-items in the United States 
Army does exist, and is called the Army Master Data File (AMDF). A program using 
a database of this size would be most appropriate in a war gaming or simulation 
application where memory resources necessary to support such a database would not 
be a constraint. If the program is implemented as a microcomputer-based svstem in 
tactical units, then a subset of the AMDF or the use of a task force template like the 
one used in the prototype would be appropriate. 

An .mprovement of the program might allow the user to specify a set of Weapons 
and major end items from the AMDF as one of the program functions. The resulting 
task force template would continue to be used until changed by the user by selecting a 
task force template creation function in the program. The overriding concern is that 
the task force database and template be tailored to meet the particular needs of the 
logistics planner using the program and be supported by the memory resources 
available. 

Another limitation of the program is the temporary existence of task force 
composition data. Ideally, this information would be stored permanently with other 
data pertinent to the historical record of an operation. It currently is not. The loss of 
this data prohibits future reference to the composition of the task force involved in the 
conduct of a particular logistics operation. This limits some of the analysis which can 
be performed about an operation. Information on the composition of a task force may 
Warrant inclusion in the historical record. 

Current program design involves reading all of the historical records into main 
memory from secondary storage at the beginning of the program and writing them 
back into secondary storage at the end of the of the user session. The historical files 
take up considerable space when the program has been used to create a large number 
of logistics estimates. A more sophisticated data retrieval technique is necessary to 
reduce this dependency on main memory. If the historical files of several different 
units are stored together or shared in some type of distributed system, the data 
retrieval issue becomes even more important. 

The decision to use Pascal as the implementation language in the prototype was 
made for convenience. Pascal may not be the best choice. Experimentation with 


Common Lisp in implementing portions of the program required fewer variables and 
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potentially less storage space than Pascal. In addition, the use of user defined 
structures in Common Lisp appeared to make the program easier to read and 
understand. 

A significant limitation of the program is its rigidity. In particular, the program 
does not allow the user to change the value of an attribute in the description of an 
Operation after a record for that operation has been created and placed into the 
historical records. War is unpredictable by nature. There may be times when the value 
of certain attributes in the operation description will not be as planned. It is 
unrealistic to expect the user of the program to recreate an entire logistics estimate 
because of a single change to the operation description. 

In a combat simulation or modelling application of this program, the ability to 
quickly and easily change the value of attributes in the operation description and 
recreate an estimate would be very important. Any anticipated sensitivity analysis 
using this program would require this capability. 

The estimates for Class II, Class IV, Class VII, Class VIII, and Class IX supplies 
are clearly unacceptable for the purposes of the tactical logistics planner. While the 
functions of the program worked well in creating estimates which may be superior to 
those generated by human planners by calculation methods alone, it is the level of 
abstraction at which the estimates were made that is the problem. No one orders such 
supplies by the short ton. Each supply item is uniquely identified by a stock number 
and ordered individually. There must be a more concerted effort by Army logisticians 
to provide planning equations and factors for selected individual supply items in these 
categories. The present level of abstraction serves only the needs of the transportation 
manager concerned with bulk planning data and the logistician at Army level and 
above. 

The reasoning performed by the program represents a new approach to logistics 
planning and has several potential applications which will be discussed later. There is 
the potential however, for becoming overly impressed with the reasoning techniques of 
the program and trving to reason about too many factors at once, or about factors 
whose influence on supply consumption is uncertain. Some factors may certainly 
impact on how a particular operation is conducted, but may not influence the 


consumption of supplies in any consistent and meaningful way. 
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C. PROMISE FOR THE FUTURE 

The program of this thesis could evolve into a valuable tool for the tactical 
logistics planner. Future work needs to be done to validate the approach of this 
researcn. The program offers manv potential benefits to the logistics planner. It is fast 
and reliable. Much of the time consuming work now being done by humans can be 
confidently shifted to a computer. References and calculations are routine, 
monotonous, and unexciting aspects of the logistics estimation process. Such tasks are 
often performed poorly or in an untimely manner, especially in a high stress 
environment such as can be expected during combat operations. The program assists 
the logistics planner in the reasoning process as well. For the inexperienced planner, 
the built-in reasoning of the program may provide estimate revisions where they might 
not otherwise be possible. The experienced logistics planner can structure the 
reasoning of the program to reflect more accurately the influence of different operation 
attributes on the consumption rate of supplies. Even at the tactical level, sensitivity 
analysis can be performed by altering the values of various operation attributes and 
creating a new estimate for the revised situation. A final benefit of the program is the 
simplicity and speed with which consumption data is recorded. With the aid of the 
program, this all-too-often-neglected task mav be routinely performed. 

The ideas inherent to the creation of an automated logistics planning program 
can be used to design computer aided instruction programs for teaching logistics 
planners how to create logistics estimates. An explanation facility can be added to 
instruct the student as to which refences are made in preparing each of the individual 
supply item estimates in accordance with FM 101-10-1. The same instruction program 
could check student estimates against its own calculations for test operations and 
provide a general equation solutions when the student fails to provide a correct 
response. 

A computer-aided instruction program might also be used to teach the basics of 
reasoning in adjusting logistics estimates. A sample session such as the one detailed in 
the appendices of this thesis might provide phvsical evidence of the influence that 
certain operation attributes may have on the consumption of supplies. Coupled with 
classroom instruction, such an approach might provide some needed experience to 
junior logisticians. 

Logistics has been poorly integrated into most Army tactical simulations and war 


gaming exercises. Operational planning in these exercises fails to include realistic 
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consideration of logistics requirements. The reason cited most often in explaining this 
deficiency is that logistics estimates are too time consuming to create and slow the pace 
of the training. Use of an automatedlogistics-planning system like this one mught be 
able to alleviate this problem to some degree. The program of this thesis clearly 
demonstrates that svstems can be designed to create logistics estimates in a timely and 
responsive manner, and integrated into operational planning. It might be possible to 
expand these type of exercises in the future to include the participation of logistics 


planners in a meaningful way. 
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APPENDIX A 
LOGISTICS ESTIMATE DEMONSTRATION #1 


TASK FORGE RNG 


You will now begin building the task force. 


enter the number of M2 INF FIGHTING VEH in your task force. 
enter th sunbee of M3 CAV FIGHTING VEH in your task force 
enter the AUER Of MLS PERS CSRR ies in your task force. 
enter the nes of MOOT elt ave deny in your task force. 
enter the AGREE of M125Al1 81MM CARR in your task force. 
enter the number of MIO6Al ILO7MM CARR in yolir taskutcreee 
enter the number of MiCZ POsieow in your task force. 
enter the eee or MIO0S 155MM se sey in your task force 
enter the ae Cf AITO ein seater in your task force. 
enter the ee of LAUN-LOAD MLRS in your task force. 
enter the number of M163 VULCAN AIR DEF in your task force. 


enter the BS of M730 CHAP AIR DEF in your task femee. 


enter the numb er of Ml TANK 105MM in your task force. 
enter the number of M60 TANK 105MM in your task forees 
enter the ae of TOW LAUNCHER in your task force. 
enter the ae of M222 DRAGON LNCHR in your task force. 
enter the ee Of 02 SSCA MG in your task force. 
enter the Rae of M60 MG in your task force. 
enter the nunber Of MIGAL RIEL In your task sterece 


oP) 
td 


SCENARIO PNPUT 


The per cne no gue serous describe the operation for which 
ene program will create a iogistics requirements estimate. 
All questions must be answered as directed. 


Enter the date on which the operation 1s to commence. 
Use the form dd/mm/yy 


The date of the operation 1s 24/05/87 


Momus tie Correct adate? 
Enter the number corresponding to your answer. 
mcormecate: 1S COnlrect 
Ze eiOreda coals LNGOnGect 


Peter the mame Of the unit for whieh this estimate or 
update 1s being prepared. For example- 1/35rd 


The name of the unit is 2/77th 


Is this the correct unit name? 

Enter the number corresponding to your answer. 
ine Jes ,unttename 1S GOmnect 
Poo ee ninemame 15 incerrec t 


Enter the number corresponding to the correct tf type. 
nec armcr — 
Eee ciani zed 
Seer elitrancny 


Peer the number corresponding to the correct tf size. 
We JereVie ered abie}gl 
2-2 Dri gade 


Enter the number corresponding to the correct mission. 
1 - attack 
2 - defend 


Is this the first day of this mission or is this a 
succeeding day of a continuing mission. 


miieet ene Correct number for your response 
fee first day 
we> succeeding day 
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Enter the name of the operatton of whieh Ents uiieceon 
1s a part. For example- D-DAY 


The name of the operation is Reforger 


is this coOmmecte: 

Enter the number corresponding to your answer. 
l= yes, Operator tance tomconners 
2- no, operation name is incorrect 


Enter the number corresponding to the correct area. 
1. = scons 
2 - europe 
3 - korea 


Enter the name of the country an which) thusemusauan 
will be conducted. For example- West Germany. 
Be sure to capitalize the first letter in ecachevorc 


The name of the country is West Germany 


Issthis copnecte: 

enter the number corresponding to your answer. 
1 - yes, country name is correct 
Z2- no, COUNTrY Name 1s ineommece 


Enter the number corresponding to the correct climate. 


= aie 
2 = tenperare 
3 =.cola 


Enter the number corresponding to the correct intensity 


LAS avait 
2-> ml 
5 = Wow 


Do you expect the task force to be in MOPP level three 
or MOPP level four during this mission. 


Enter the correct number for your response 
lL - yes 
2 f= 10 


Enter the number corresponding to the correct terrain 
open 

woods 

DUES 

mountainous 


LO DOF 
aaea 


Enter the number corresponding to the visibility 


Ges refetere! 
2- fair 
3 = poet 


Do you planvenmsticnificant Air For¢ewground support? 


Enter the correct number for your response 
ies eS 
IAS A NG 


Enter the total number of personnel in the task force. 


Bmecueeie number correspending to the ration policy 
during the duration of this operation. 


ILA Sepia ne 
Zo = CC CTD 
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ANALOGY REASONING 
All of the available data on past operations has been: 
evaluated to ldentify analogles to the current operation. 


A previous operation 15 Considered analogous to; elcuuuuas 
current operation 1f the following conditions are satisfied: 


1. The historical record of the previous operation has 
been updated with actual consumption data. 


2. Both operations have the same mission. 
3. Both operations took place in the same area of the world. 
4. Both operations took place in the same climate. 


5. Both operations took place under the same chemical 
defense mission oriented protective posture. 


6. Both operations involved the same combat intensity. 


7. Both operations were first da 


engagements or 
succeeding day engagements o 


the same mission type. 


The following operations are analogous under this definition. 


DATE UNIT MISSION AREA CLIMATE MOPP INTENSITY FIRST/SUCCEEDING DAY 
01/04/86 2/77th ATTACK EUROPE TEMPERATE tes HIGH FIRST DAY 
04/04/86 2/77th ATTACK EUROPE TEMPERATE YES HIGH FIRST DAY 
06/04/86 2/77th ATTACK EUROPE TEMPERATE YES HIGH FIRST DAY 
10/05/86 3724¢th ATTACK EUROPE TEMPERATE YEs HIGH FIRST DAY 
15/05/86 1/81ist ATTACK EUROPE TEMPERATE YES HIGH FIRST DAY 
03/04/87 2/77th ATTACK EUROPE TEMPERATE YES HIGH FIRST DAY 
07/04/87 27 77K ATTACK EUROPE TEMPERATE YES HIGH FIRST DAY 
22/04/87 2/77th ATTACK EUROPE TEMPERATE YES HIGH FIRST DAY 
05/05/87 3/24th ATTACK EUROPE TEMPERATE YES HIGH FIRST DAY 
16/05/87 2/77th ATTACK EUROPE TEMPERATE YES HIGH FIRST CAY 


WATER SUPPLY REASONING 


The analogous operations are evaluated on the strength 
©f nei Stmmelarity to the Current operation in those 
aheaseperLinent to water eee ecncumpeton. Each ot the 
points of similarity are weighted independently. 


The weighting of each item is in parenthesis below the 
item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT 


Up to three Pucue cus operations are considered in the 
adjustment algorithm, with those operations with the. 
highest number of quality points being chosen for this 
purpose. 


DATE UNIT COUNTRY UPDATE 

NAME SOURCE 

(2) (1) 
16/05/87 2/77th aes YES 
05/05/87 3/24¢th NO NO 
22/04/87 2/77th NO YES 
07/04/87 2/77th YES NO 
03/04/87 2/77th xES NO 
15/05/86 1/81lst NO VES 
10/05/86 3/24th YES NO 
06/04/86 2/77 th NO NO 
04/04/86 2/77th NO YES 
01/04/86 2/77th YES NO 
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SUBSISTENCE SUPPLY Reasons 


The analogous operations are evaluated on the strength 
of their similarity to the current operatich amipaoac 
areas pertinent to subsistence consumption. =bacimonsrd 
points of similarity are weighted independently. 


The weighting of each item 1s in parenthesis below the 
item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT 


Up to 'taree preecas operations are considered in the 
adjustment algorithm, with those operations with the 
highest number of quality points being chosen for this 
DUGwese-. 


aeEewewewerewewe eww ew ewe ewww ew e2w @ ee 2 @ 2 2 eS |S Ss |S |S | 6 ow we ws oe os 


DATE UNIT UNIT UPDATE 
NAME SOURCE 

(1) ry) 
16/05/87 2/77th YES YES 
05/95/87 3/724¢th NO NO 
22/04/87 2/77th YES YES 
07/04/87 2/77th YES NO 
03/04/87 2/77th YES NO 
15/05/86 1/81st NO YES 
10/05/86 3/24th NO NO 
06/04/86 2/77th YES NO 
04/04/86 2/77th YES YES 
01/04/85 2/77th YES NO 


38 


GEvenal sUrrLyY REASONING 


The analogous operations are evaluated on the strength 

of their similarity to the current operation in those 

areas pertinent to general alee consumption. Each of the 
e 


points of similarity are weighted independently. 


The weighting of each item is in parenthesis below the 
item name. i.e. (2) = 2 points for AF_GROUND_SUPPORT 


Up to three Ppevseus Seemduisimsmate considered in the 
adjustment algorithm, with those operations with the. 
highest number of quality points being chosen for this 


purpose. 

DATE UNIT AF TERRAIN VISIBILITY UNIT COUNTRY OPERATION UPDATE 

GRND_SPT NAME = NAME NAME SOURCE 
(2) (2) (1) (1) ia) (1) (2) 
16/05/87 = 2/77th YES NO NO YES YES NO YES 
05/05/87 3/24th NO NO YES NO NO NO NO 
22/04/87 = 2/77th YES YES YES YES NO YES YES 
07/04/87 9 2/77th YES NO NO YES YES YES NO 
02/04/87 2/77th NO NO NO YES YES YES NO 
15/05/86 1/81st YES YES YES NO NO NO YES 
10/05/86 3/24th YES NO YES NO YES NO NO 
06/04/86 =2/77th NO NO NO YES NO YES NO 
04/04/86 2/77th YES YES YES YES NO YES YES 
01/04/86 =2/77th YES NO NO YES YES YES NO 


FUEL SUPPLY REASOMIs: 


The analogous operations are evaluated on the strength 
of thelr similarity to the current operation in those 
areas Pertinen eere sues Suey consumption. Each of the 
points of similarity are weighted independently. 


The weighting of each item is in parenthesis belowstne 
item name. i.e. (2) = 2 points for AF_GROUND_SUPPORT 


UsMy tenee prevaous operations are considered @iamene 
adjustment algorithm, with those operations with the. 
highest number of quality points being chosen tore. 
purpose. 


ae ewewewweew ew @ @ wesw ewes ZO OF POs SF FZ FO Bee TFs = Fess es eZ 2 SF SF sZ ZZ es 2 FZ esZeFZesZ ses F888 SF Fee sw es es 8 eS SF se eS = ws 


DATE UNIT AF TERRAIN UNIT COUNTRY OPERATION 
GRND_SPT NAME NAME NAME 
2) 3) (2) ( Gale) 
16/05/87 2/77%th YES NO YES VES NO 
05/05/87 3/7 24th NO NO NO NO NO 
22/04/87 2/77th TES YES YES NO YES 
07/04/37 2/77th YES NO YES YES YES 
03/04/87 27 678M NO NO YES YES YES 
15/05/86 1/81st YES YES NO NO NO 
10/05/86 3/24th YES NO NO YES NO 
06/04/86 2/77th NO NO YES NO YES 
04/04/86 2777 xNh YES YES YES NO YES 
01/64/86 2/77th YES NO YES YES YES 
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UPDATE 
SOURCE 


AMMUNITION REASONING 


The analogous operations are evaluated on the strength 
CmeunicelLmoatiiiaritysro tChewcllrnent Operation in those 
areas pertinent to ammo ae ae ee COuSumMpelOm, Hach Of the 
points of similarity are weighted independently. 


Mic weigiting Of €ach Trem 1S an parenthesis below the 
item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT 


Miemennhee Previous Cperations with the highest number of 
quality points are used in the adjustment algorithm. 


DATE UNIT AF TERRAIN VISIBILITY UNIT COUNTRY OPERATION UPDATE 

GRND_SPT NAME NAME NAME SOURCE 

3) C2) (1) (1) (1) ct) aly) 

16/05/87 2/777th Veo NO NO YES TES NO YES 
05/05/87 3/24th NO NO YES NO NO NO NO 
22/04/87 2/77th YES YES WES VES NO YES YES 
07/04/87 2/77th YES NO NO YES YES ¥ES NO 
03/04/87 2/77th NO NO NO YES YES YES NO 
15/05/86 1/81ist VES YES YES NO NO NO YES 
10/05/86 3724¢th YES NO YES NO YES NO NO 
06/04/86 2/77th NO NO NO YES NO YES NO 
04/04/86 2/77%th YES YES VES YES NO YES YES 
01/64/86 2/77th YES NO NO YES YES ES NO 


4] 


TASK FORGE COhPOSTItO™ 


The task force has been built. Task force composition is 


MZ INF FIGHTING Ven 40 
M3 CAV FIGHTING VER 2 
Mil3 PERS CARces. Ihe 
M901 CBI VER sa 5 
MIZ5A1 81MM CARR S) 
M106A1 107MM CARR ae 
M102 LOS5MM HOW =) 
MNIOS 255MM Sr BOW 2 
Mio Sil oe enon 5) 
CAUN-LOAD MLRS 0 
HlGs > VULGAN Soi Re Den 3 
HN7SU CHAP Ate Par S 
M1 TANK 105MM 54 
M60 TANK 105MM 54 
TOW LAUNCHER 26 
M222 DRAGON LNCHR -4 
HZ 250 CAE OMG L235 
M60 MG 49 
Helena RIP EE 3000 
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DATE 

UNIT 

TASK FORCE TYPE 
TASK FORCE SIZE 
MISSION 

DURATION 

COMBAT INTENSITY 
OPERATION NAME 
AREA 

COUNTRY 

CLIMATE 

TERRAIN 

VISIBILTY 

AF GROUND SUPPORT 
MOPP LEVEL 3/74 
PERSONNEL STRENGTH 
RATION POLICY 


AUrOmAtTED LOGISTICS PLAN 


24/05/87 
2/77th 
ARMOR 
BRIGADE 
ATTACK 
FIRST DAY 
HIGH 
Reforger 
EUROPE 
West Germany 
TEMPERATE 
OPEN 

FAIR 

TEs 

YES 

3500 
G2CebD 


HISTORICAL DATA AVAILABLE YES 


DATE 22/04/87 04/04/86 
UNIT 2/77th 2/77th 


16/05/87 
2/77th 


SUPPLY ITEM 


water 

B rations 

MRE rations 

class II supplies 
diesel fuel 

class IV supplies 
tank ammo 105mm 

TOW ammo 

DRAGON ammo 
Howitzer ammo 105mm 
Howitzer ammo 155mm 
Howitzer ammo 8in 
Vulcan ammo 20mm 
Mortar ammo 81mm 
Mortar ammo 107mm 
MG ammo .50 caliber 
MG ammo 7.62mm 
rifle ammo 5.56mm 
class VII supplies 
Class VIII supolies 


class IX supplies 


GENERAL EST. 


16170 
3500 
7009 

6 
69530 
7 
5616 
182 
88 
3384 
3366 
2592 
i952 
873 
1308 
21525 
2217 
2970C0 
26 

2 

4 


LOGISTICS ESTIMATE 
ADJUSTMENTS 


2556 
oe 
2564 
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FINAL EST. 


18726 
2973 
9564 

7 
78418 
8 
5000 
243 
70 
4521 
3011 
Site 
16069 
710 
1608 
15925 
15171 
300470 
30 

1 

8 


gallons 
meals 
meals 
STONS 
gallons 
STONS 

rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
STONS 

STONS 

STONS 


APPENDIGS 
LOGISTICS ESTIMATE DEMONSTRATION #2 


TASK FORCE QNPUT 


You will now begin building the task force. 


enter the number of M2 INF FIGHTING VEH in your task force. 
enter the Sees of M3 CAV FIGHTING VEH in your task forces 
enter the SGHEeE of M113 PERS CARRIER in your task force. 
enter the oN ae Of M901 °CEI Ven iay, in your task force 
enter the SIDEE of M125Al 81MM CARR in your task force. 
enter the eases of M1O6Al1 107MM CARR in your task force. 
enter the joe of M102 105MM HOW in your task force. 
enter the nee of M109 155MM SP HOW in your task@rorce: 
enter the unpee of M110 8in SP HOW in your task force. 
enter the eres of LAUN-LOAD MLRS in your task force. 
enter the eee of M163 VULCAN AIR DEF in your task force. 
enter the Bree Of M730 >GRAr AITRePE? in your task forge. 
enter the oe of Ml TANK 105MM in your task fonces 
enter the Pee of M60 TANK 105MM in your task force: 
enter the nee of TOW LAUNCHER in your task force. 
enter the ee of M222 DRAGON LNCHR in your task force. 
enter the eee of U2 50een0 MG in your task force. 
enter the nano: of M60 MG in your task fEorce= 
enter the nunber Of MIGATSRIELE in your task force. 
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SCENARIO INPUT 


The Berea ae, cues tons describe the operation for which 
EneePp rogram wlilecreate a Logistics requirements estimate. 
All questions must be answered as directed. 


Enter the date on which the operation is to commence. 
Use the form dd/mm/yy 


ene date of the operation is 03/03/87 


Is this the correct date? 
Beem tne mumber corresponding to your answer. 
eeicmcace 2S) COREE 
Z2-no, date is incorrect 


Enter the name of the unit for which this estimate or 
update is being prepared. For example- 1/33rd 


The name of the unit is 1/11th 


Is this the correct unit name? 

Enter the number corresponding to your answer. 
Meee cc, UnleE name LS correct 
Eeoeo Ui): name 1S Incorrect 


Enter the number corresponding to the correct tf type. 
erat mote 
Peeechanized 
3 - infantry 


Enter the number corresponding to the correct tf size. 
[Soa cal lon 
2 - brigade 


Enter the number corresponding to the correct mission. 
= attack 
2 - defend 


Is this the first day of this mission or is this a 
succeeding day of a continuing mission. 


Enter the correct number for your response 
= abesie tlh 
Ze succeeding day 
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Enter the name of the operation of which this mission 
is a part. For example- D-DAY 


The name of the operation is Rising Star 


Is this correcem. 

Enter the number corresponding to your answer. 
1 - yes, operation name 1s conrect 
2> no, Opéracion Nameuwtsetneowee. 


Enter the number corresponding to the correct area. 
- conus 
2 - europe 
3 ~- korea 


Enter the name of the coUntny an which chuseiaocrom 
will be conducted. For example- West Germany. 
Be sure to capitalize the first letter in each word 


The name of the country is Korea 


is thisseorrecs .< 

Enter the number corresponding to your answer. 
1 = yes, G€OUntnyenane Ws corveae 
2- no, country name is incorrect 


Enter a tt corresponding to the correct climate. 
A = Cie 
z2- temperate 
3 = Cole 


Enter the number corresponding to the correct intensity 


i= tien 
2- mica 
3 - low 


Do 7 expect the task force to be in MOPP level three 
or MOPP level four during ents mission. 


Enter the correct number for your response 


Enter the number corresponding to the correct terrain 
- open 
2 ~- woods 
3° = bureau 
4 - mountainous 


Enter the number corresponding to the visibility 


- good 
2-2 £306 
3 > poor 
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Do you plan on significant Air Force ground support? 


Bote the correct number for your response 
- yes 
Ze7 0 


Enter the total number of personnel in the task force. 
Enter the number corresponding to the ration policy 


during the duration of this operation. 


J elon ola s, 
Ze- CCD 
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ANALOGY REAS ORANG: 


Ail of the available data on past operations has been. 
evaluated to identify analogies to the current operation. 


A previous operation is considered analogous to the  _. 
current operation if the following conditions are satisfied: 


1. The historical record of the previous operationeias 
been updated with actual consumption data. 


2. Both operations have the same mission. 
3. Both operations took place in the same area of the world. 
4. Both operations took place in the same climate. 


5. Both operations tcok place under the same chemical 
defense mission oriented protective posture. 


6. Both operations involved the same combat intensity. 


7. Both operations were first da 


engagementssor 
succeeding day engagements o 


the same mission type. 


The following operations are analogous under this definition. 


"es 2 ee ew ewww ewew eww Bes Bes sVB ses V2 s8 FT 8 BFF SF TFB FVsVTsw TZ 8 FB FB FT SF oe TGs SF es FT SF TFT SF TF FFT FTF SF TFB FB FVsVsFZ FS SF FT 8 GF SOP eZ eT KO STH OO wZw Ew eZ Oe Oe ee oS eS eS =e 


DATE UNIT MISSION AREA CLIMATE MOPP INTENSITY FIRST/SUCCEEDING DAY 
01/02/86 Tait DEFEND KOREA COLD YES MID SUCCEEDING DAY 
22/02/85 L7 11th DEFEND KOREA COLD wES MID SUCCEEDING DAY 
04/03/86 1/lith DEFEND KOREA COLD YES MID SUCCEEDING DAY 
12/01787 2/ 22nd DEFEND KOREA COLD VES MID SUCCEEDING DAY 
02702787 373560 DEFEND KOREA COLD YES MiD SUCCEEDING DAY 
23/02/87 2/22nd DEFEND KOREA COLD TES MID SUCCEEDING DAY 
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Merten ow PP Ly REASONING 


The analogous operations are evaluated on the strength 
PEeunedheciitide ty tOmeiemcUnNEent Operation in those 
areas pertinent to water supply consumption. Each of the 
points of similarity are weighted independently. 


The weighting of each item is in parenthesis below the 
item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT 


Up to three Pure ous operations are considered in the 
adjustment algorithm, with those operations with the 
highest number of quality points being chesen for this 
purpose. 


DATE UNIT COUNTRY UPDATE 
NAME SOURCE 

(2) (1) 
23/02/87 2/22nd YES NO 
02/02/37 B75 5t-c TES NO 
12/01/87 2/22nd YES No 
04/03/86 Haag XES YES 
22/02/86 L7ath YES YES 
01/02/86 beh YES TES 
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SUBSISTENGE SUPP EASON: 


The analogous operations are evaluated on the strength 
of their similarity to the current operation aaeenoece 
areas pertinent to subsistence consumption gacmo mene 
points of similarity are weighted independently. 


The weighting of each item is in parenthesis below the 
item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT 


Up: to -enuee prevacus operations are considered manmine 
adjustment algorithm, with those operations with the 


highest number of quality points being chosen for this 
purpose. 


Sf CLAY 
DATE UNIT UNIT UPDATE 
NAME SOURCE 
(1) (1) 
7x UVa Bee) 2) 220 NO NO 
02/02/87 S/ sore NO NO 
12/017 87 Z/ 2204 NO NO 
04/03/86 1 / Pech LES YES 
22/02/66 A acide VES YES 
01/02/86 by e228 9) YES YES 


Cs 
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GEN oUrr oY REASONING 


The analogous operations are evaluated on the strength 

Pe etheit similarity COguiemedrrentwoperation in those 
areas pertinent to general Sane consumption. Each of the 
points of similarity are weighted independently. 


The weighting of each item is in parenthesis below the 
mhem name. i.e. (2) = 2 points for AF_GROUND_SUPPORT 


Up to three Bae ous operations are considered in the 
adjustment algorithm, with those operations with the. 
highest number of quality points being chosen for this 


purpose. 
DATE UNIT AF TERRAIN VISIBILITY UNIT COUNTRY OPERATION UPDATE 
GRND_SPT NAME NAME NAME SOURCE 
(2) (2) (1) (1) (1) (13 (2) 
23/02/87 2/22nd NO YES YES NO YES YES NO 
02/02/87 3/33rd NO NO NO NO YES NO NO 
12/01/87 2/22nd NO NO NO NO YES YES NO 
04/03/86 L/r Eth YES MES YES YES YES NO YES 
22/02/85 1/11lth YES NO NO YES YES YES YES 
01/02/86 1/11th YES ras YES YES YES Ves es 


SI 


FUEL SUPPLY REAS@RIRNG 


The analogous operations are evaluated on the strength 
of their similarity to the current operation in those 
areas pertinent to fuel > Uae consumption. Each er the 
points of similarity are weighted independently. 


The weighting of each item is in parenthesis below the 
item name. l.e. (2) = 2 points for AF_GROUND_SUPPORT 


Up to three previous operatzons are considered jamacne 

adjustment aigorithm, with those operations with the 

highest number of quality points being chosen for this 
purpose. 


DATE UNIT AF TERRAIN UNIT COUNTRY OPERATION 
GRNO_SPT NAME NAME NAME 
C23) (3) (1) (1) (1) 
23/02/87 2/22nd NO VES NO YES YES 
02/02/87 3733rd NO NO NO YES NO 
12/01/87 2/22nd NO NO NO (Es YES 
04/03/86 1/11th YES YES TES YES NO 
22/02/86 1/l1th TES NO YES YES YES 
01/02/86 1/11th TES YES ES YES YES 


UPDATE 
SOURCE 


AMMUNITION REASONING 


The analogous operations are evaluated on the strength 
Se their similaricy to the current operation in those 
areas pertinent to ammo peor consumption. Each of the 
Boints Of Similarity are weighted independently. 


Mie weighting of each item 1s in parenthesis below the 
ieem name. 1.€. (3) = 3 points for AF_GROUND_SUPPORT 


The three previous operations with the highest number of 
quality points are used in the adjustment algorithm. 


DATE UNIT AF TERRAIN VISIBILITY UNIT COUNTRY OPERATION UPDATE 
GRND_SPT NAME NAME NAME SOURCE 
(3) (2) Cr) cr) (1) (1) (1) 
22702/87 2/22nd NO YES TES NO ves YES NO 
02/92/87 a7 serd NO NO NO NO ves NO NO 
2/01/57 2/22e2nd NO NO NO NO .eS XESS NO 
04/03/86 1/11%th XES Yes YES YES YES NO VES 
22/02/86 1/1l1lth YES NO NO YES YES YES VES 
01/02/86 R/ Lith YES YES YES YEs YEs YES VES 


MZ INF PIGHIING Vea 
M3 CAV FIGHTING VEH 
MIils PERKS CARRIES 
1901 CSI VER BER 
MI2ZSAl. ClUMeGarE 
M106A1 107MM CARR 
HlOzZ LOSrManey 

MLO9 155HH SP onew 
MiTO 620 Shonen 
LAUN-LOAD MLRS 

M163 VULCAN AIR DEF 
M730 CHAP AIRY DEE 
M1 TANK 105MM 

MeO TANK -POsit 

TOW LAUNCHER 

MZZ2 DRAGON LNCHR 
M2, 50 lGaE NG 

i160 MG 

Meal RIEES 


TASK FORCE CORMm@sl Iie. 


DATE 

UNIT 

task FORCE TYPE 
TASK FORCE SIZE 
MISSION 

DURATION 

COMBAT INTENSITY 
OPERATION NAME 
AREA 

COUNTRY 

CLIMATE 

TERRAIN 

VISIBILTY 

AF GROUND SUPPORT 
MOPP LEVEL 3/4 
PERSONNEL STRENGTH 
RATION POLICY 


oe VOM ED POGISTICS PLAN 


03/03/87 
1/llith 
ARMOR 
BRIGADE 
DEFEND 
SUCCEEDING DAY 
MID 

Rising Star 
KOREA 

Korea 

COLD 

OPEN 

GOOD 

YES 

YES 

3500 

C2cap 


HISTORICAL DATA AVAILABLE YES 


DATE 01/02/86 


UNIT 1/11th 


SUPPLY ITEM 


water 

B rations 

MRE rations 

class II supplies 
diesel fuel 

class IV supplies 
tank ammo 105mm 

TOW ammo 

DRAGON ammo 
Howitzer ammo 105mm 
Howitzer ammo 155mm 
Howitzer ammo 8in 
Vulcan ammo 20mm 
Mortar ammo 81mm 
Mortar ammo 107mm 
MG ammo .50 caliber 
MG ammo 7.62mm 
rifle ammo 5.56mm 
class VII supplies 
class VIII supplies 


class IX supplies 


04/03/86 
V7 th 


22/02/86 
i/1lith 


GENERAL EST. ADJUSTMENTS FINAL EST. 
12320 2004 14324 
3500 2187 5687 
7000 -2000 5000 
6 2 8 
56257 8990 65247 
re =2 5 
2268 532 2600 
182 18 200 
88& =o 80 
2736 64 2800 
2916 -166 2750 
2215 185 2300 
8100 1900 10000 
360 -60 300 
540 110 650 
8856 144 9000 
8673 =675 8000 
120000 -106000 14000 
26 4 30 
Z 0 
4 @ 


LOGISTICS ESTIMATE 


=) 


gallons 
meals 
meals 
STONS 
gallons 
STONS 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
STONS 
STONS 
STONS 


APPENDIX C 
SAMPLE OUTPUT FROM OTHER PROGRAM FUNCTIONS 


LPDATING A KECORD 


You will now be asked information about the operation. 
for which you have actual consumption data. 


Enter name of unit which conducted the operation 
For example- 1/33rd 


The name of the unit was 2/77th 


Is this the correct unit name? 

Enter the number corresponding to your answer: 
1 - yes, UnLe name 1s conrece 
2=no, Unit name-is ineorrea: 


Enter the date on which the operation took place. 
Use the form dd/mm/yy 


The date of the operation was 24/05/87 


Is this the correct date? 

Enter the number corresponding to your answer. 
1 = Yes" Cate 1s .cou~een 
2- no, date is incorrect 


Enter the number corresponding to the correct mission. 
= abeaen 
2 - defend 


What was the source of the information for this update 


Enter thé corréct number ston oun responce 
Lo ses tla aees 
2 - factual information 


Enter the actual consumption for eachVou thessupeiy 
items that roliow. If no’ actual consumpeteneeigumes 
are available, enter 0 


Enter the number of water gallons 
Z0000 
Enter the number of B rations meals 
3100 
Enter the pate Ot MRE "eacions meals 
810 


Enter the ome! of class II supplies  STONS 


Enter the number of diesel fuel gallons 
11700 


Enter 


Enter 


Enter 


PRcer 


Enter 


Enter 


Enter 


Enter 


Enter 


Enter 


Enter 


Enter 


Enter 


Enter 


Enter 


Enter 


the eer 


number 


Shy) 


number 
247 


number 
75 


the 
the 
the 


number 
4600 


number 
3040 


number 
2930 


the number 
15650 


the number 
705 


the 
the 


the 


the number 
TS 72 


the number 
oes 

the number 
16000 

the number 
300000 

the number 
29 

the ee 


the Baer 


The record has been 


Enter c to continue 


class 


IV supplies 


tank ammo 105mm 


TOW ammo 


DRAGON ammo 


Howitzer ammo 105mm 


Howitzer ammo 155mm 


Howitzer ammo 8in 


Vulcan ammo 20mm 


Mortar ammo 8lmm 


Mortar ammo 107mm 


MG ammo 


250 Calabet 


MG ammo 7.62mm 


rifle 
class 
class 


class 


ammo 5.56mm 
VII supplies 
VIII supplies 


IX supplies 


updated. 


CAL 
—~l 


STONS 

rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
rounds 
STONS 

SLONS 


STONS 


DELETING A HISTORICAL RE Ger 


You will now be asked information about the operation 
that you want deleted. 


Enter name of unit which conducted the operation 
For exampile—- 1) 22nd 


The name of the unit was 2/77th 


Is this the correct unit name? 

Enter the number corresponding to your answer, 
- yes, unit name is correct 

= No, UNL Name 1s 1neeomrece 


Nore 


Enter the date on which the operation took place. 
Use the form dd/mm/yy 


The date of the operation was 24/05/87 


ls this the copreccedace- 

Enter the number corresponding to your answer. 
WS Yes, Gace. sce wget 
2= no, “dacecissincgerrece 


Enter the number corresponding to the correct mission. 
- attack 
2 - defend 


The record was found and deleted. 


Enter c to continue 


DATE 


01/04/86 
04/04/86 
06/04/86 
10/05/86 
S/o) 86 
03/04/87 
07/04/87 
22/04/87 
05/05/87 
Ho 0/67 
24/05/87 


DIKBPETORY 


UNIT 


DIRS 
BUT AE eal 
IMA Teg 
3/24th 
1/8ist 
27] an 
2) fea 
2/7 en 
3/24th 
2/TT En 
2/77 En 


MISSION 


ATTACK 
ATTACK 
gs TVG) 
APA 
ATTACK 
ATTACK 
AT GAC 
ATTACK 
ATTACK 
ATTACK 
ATTACK 


Enter c to continue 


UPDATED 


YES 
gays 
YES 
iS 
wis 
Ves 
YES 
UES 
LES 
YES 
YES 


DATE 

UNIT 

TASK FORCE TYPE 
TASK FORCE SIZE 
MISSION 

DURATION 

COMBAT INTENSITY 
OPERATION NAME 
AREA 

COUNTRY 

CLIMATE 

TERRAIN 

VISIBIETY 

AF GROUND SUPPORT 
MOP LEVEL 374 
PERSONNEL STRENGTH 
RATION POLICY 
UPDATE SOURCE 


HisTORIGAL RECOCRD 


24/05/87 
2/77th 
ARMOR 
BRIGADE 
ATTACK 
FIRST DAY 
HIGH 
Reforger 
EUROPE 
West Germany 
TEMPERATE 
OPEN 

FAIR 


FACTUAL 


HISTORICAL DATA AVAILABLE YES 


DATE 


UNIT 2/77 th 


SUPPLY ITEM 


water 

B rations 

MRE rations 

class II supplies 
diesel fuel 

class IV supplies 
tank ammo 105mm 

TOW ammo 

DRAGON ammo 
Howitzer ammo 105mm 
Howitzer ammo 155mm 
Howitzer ammo 8in 
Vulcan ammo 20mm 
Mortar ammo 81mm 
Mortar ammo 107mm 
MG ammo .50 caliber 
MG ammo 7.62mm 
rifle ammo 5.56mm 
class VII supplies 
class VIII supplies 


class IX supplies 


22/04/87 


04/04/86 
2/77th 


16/05/87 
2/77th 


LOGISTICS ESTIMATE 


GENERAL EST. ADJUSTMENTS 
16170 2556 
3500 -527 
7000 2564 
6 1 
69530 8888 
7 1 
5616 -616 
182 66 
88 -18 
33.84 137 
3366 -355 
2592 520 
11952 A117 
873 -163 
1308 300 
21525 -5600 
raul saly, -6046 
297000 3470 
26 4 
-1 
4 4 
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FINAL 


18726 
297s 
956% 

z 

78418 


70 
4521 
eLoplal 
Si%2 

16069 
710 
1608 
15925 
rSi7i 
300470 
30 

uf 

8 


EST. 


ACTUAL CONS. 


20000 
3100 
8100 

7 
77700 
8 
Silz 
247 
75 
4600 
3040 
2930 
15650 
705 
L572 
16350 
16000 
300000 
29 


galle 
meals 
meals 
STONS 
gallc 
STONS 
rounc 
rounc 
rounc 
rounc 
rounc 
rounc 
rounc 
rourne 
rounc 
rounc 
rounc 
roun 
STONS 
STONES 
STONS 


APPENDIX D 
PASCAL PROGRAM 


(*$S30000*%) © | 

program thesis (input,output) ; 

const 
datesize =o | juuemciden or the date freld = 
unitsize = 10; 4%the width of the unit name field = 
num_supply_items = 21; (*number of items of supply for which the 


program generates logistics estimates * 
19; (*the width of the eyes item name field* 
unit_of_measure_size 7; (*the width of the unit of measure field * 
maxfiles Zipeionumeer Of Operations in history files 
max_analogies 3; (*max number of analogies used to adjust 
general estimates 
ee tar aee of operation name field 


supply_item_namesize 


operation_name_length 


+ 4: + 
a t 


country_name_length 14; (*width of country name field 
type | | : , 
unit_of_measure_string = packed array (.1..unit_of_measure_size.) of 
a ; : 
supply_item_string = pecan uey (.1..supply_item_namesize.) of 
Ghar * 
data = record ; 
supoly_item. : Beet Cem strand 
general_estimate integer; 
adjustments se ROREIS)= 19: 
Pied estate | 2 LG Cia lalaie 
actual_consumption : integer; | 
unit_of_measure > unit_of_measure_Sstring 


end; (*end record data*) 
consumearray = array (.1..num_supply_items.) of data; 


datestring = packed array peer ee of char; 

Mmatstring S packed array (.1..unitsize.) of char; 

Beepatlonstring = packed array ee a Sal pact haa of char; 

countrystring = packed array (.1..country_name_length.) of char; 

missions = (attack,defend); 

areas = (conus,europe, eee 

elimates = (hot,temperate,cold); 

intensities = (hi,mid,low) ; 

mre sSizZes = bn, bde}; 

tf_tvpes = ee Dawe 7 

eerrains = (woods,open,built_up,mountains) ; 

durations = (first_day,succeeding_day) ; 

upcate_sounces = mone,estimate,factual) ; 

visibilities = (good,fair,poor); 

boaudon policy type= (6 c_b,c_c_b);: (*mix of ration types =) 

moe OGY cata = record ; 
analogy_index : integer: xXindex into analogies used x 
date Medtech sie wclates Or aialCgous operdrton) ‘ 
Manat. : unitstring;(*unit name in analogous operation - 
guality_pts 2 Mire ger Ameasure of analogy strength ‘s 


end; (*end record analogy_info*) 
analogy_array = array(.1..max_analogies.) of analogy_data; 


analogy_record = record 
Pic WahOG les e-iinuegern 
analogies : analogy array 


end;(*end record analogy_info*) 
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oprecord = record 
date dates tirana: 
Unie Ens haar 
mission missions; 
climate climates; 
area areas; 
Poe eype tf _types; 
tf£_size Cf sizes; 
SEM IELS) GIS) ak G4 IM een Ss eer 
moppcondition boolean; 
personnel stuengen integer; 
ration voriey ration_policy_type; 
AF ground usp: Deglecdi 
COuUneaY GCOUNErYString, 
Ba gee ysl 0 EC Ec las 
update_source update_sources; 
duration durations; 
visibility Vis lOa Les. 
operation_name operationstring; 
consumption CONnsUmMeathey- 
Update — boolean; 
analogy_info : analogy_record 
end;(*end record oprecord*) 
historytype = array (.1..maxfiles.) of oprecord; 
hist_file = file of oprecord; 
ay a rr , : ; ; 
history historytype; aay of operations in the history F 
iles 
nistory_file his eerie. *secondary Stone file of oprecords * 
file counter : integer; Anumber of records in history file a 
module_code char; “user selection of program module * 
finisned boolean; tkElag to halt program execution - 


procedure initialize; 


var 
ok boolean; 
ANnSWEr = eciaig. 
begin 
age, 
Ffinished:= false; 
Ha, 
Wri cen 
writeln:writeln;writeln; 


*validation of acceptable user choice % 
Xuser response about historical records * 


'This program is designed to assist the tactical Umaeee 
‘logistics planner at the battalion and brigade level. ' 


ye 


write('Is there an already existing historical file of previous'); 


writeln(' operations?'); 


WoL 
ok: 
Wri 
wri 
Wri 
rep 


teln;:writeln; 


= talse; 

tein 

teln(! lL =syes, 
teln(! Z =o) 
eat 
readln(answer) ; 


Weleelie 
writeln(answer) ; 
file _counter:= 0 


if answer = 'i" 
begin 
ok:= true; 


then 


‘Enter the number corresponding to 
Enero Tomer seme cee. 
there is no historical file 


OUr answera we 
hist hist_flle ag 


reset(history file,'hist oP ee aus 


while not eor(history_file 


begin 


do 


file counter:= file counter + 


end; 
end 
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Leg 
read(history_file,history(.file_counter.)) 


else if answer = '2' then ok:= true | 
else writeln('You have made an error in input, try again.') 
until ok = true; 


pege see: 
end; (*end procedure initialize*) 


procedure module_choice; 





var 
Oar | oOo ecin: epee Seedecepeaylesucet choace x4 
5 Sometime Char 2 ena: ‘user response to continue with program * 
egin . . . 
Pourcimanerc are "§,tilesecounter:2,' records in the history files.'); 
writeln('Under current program parameters, there is storage for '); 
paces! oles = tlle COumpeie2 .maddltional records. |); 
ieee LTr; 


writeln('already existing records from the history files or by'); 
writeln('changing the program parameters.'); 
writeln;writeln; 
wielceln( 'Bmeer Cc to continue’): 
mee a © 
readin(continue_char) 
imtil contanue char = ‘c'; 


weiteln{ ‘already existing’ cme oe wooecmed bby el thier Soa ee 


page; . . 
weiteln( |The Daegaam will perform the following tasks.'); . 
writeln('Enter the number corresponding to the desired function.'); 
writein; 

writeln(' 1 - create a logistics estimate for an operation.'); 
writeln; . . 

Teapot PeEmusdatecncmmistOrliGal file of a previous operation’ ); 
weaiteln(' with user supplied consumption data.'); 


writeln; 

aeeee 3 - delete the records pertaining to operations for'); 
Piieesice 1 rit 7 which the user no longer has any use.') ; 

ian ee Ltr? 

meeceln(' 4 = print the historical files.'); 

pete ln; 

Pweecelm¢' 5 = print the directory. ')> 

writeln; 


Pace! 6 =squit the program. '); 
feerceln;writeln; 


ok:= false; 
meme dt 
readln(module_code) ; 
if (module_code = '1') or (module_code = '2') or 
peeay coe eae = '3')"or eee temece = | ‘ OF 
pocmuercode: = | 5) On (modu lemegder—= |G!) then 
pegin 
ok:= true; 
ee. THe module selected was # ',module_code) 
en 


ells sistas 
writeln('you have made an error in input, try again.'); 
writeln 
Sete & 
until ok = true; 


page; , 
end; (*end procedure module_choice*) 
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(RARKKAAKKR KAKA ARK AKK RK RAK RAK AKA RKAAKK AK AK RKARKARKKR RK RKAKKKKKKRKKKKAKKKK 


MODULE LOGISTICS ESTIMaAtse 
RRR RKKARKR KAR KAKA RK RAR KAKA KKK KKK RRRERAKK KAKA KKK KRKRKKKKEKEKRKKKKAR EE ) 


procedure log_estimate; 


EOnst 
LIN_size = 6; kthe width of the line item number ae 
enditem_ name_size = 19; the width of tne enditem name field 
num_enditems | = 19; *Athe number of end items modelled in this 
program 
type 
LINstring 


packed array ake LIN size.) Osmemeant 
packed array (. 


enditem_nametvpe 1..enditem_name_size. of char; 


enditem = record 


LIN 2 LINStremnc, 
nomenclature : enditem_nametype; 
Uanerey : integer 


end;(*end record enditem*) 
compositiontype = array (.1..num_enditems.) of enditem; 


var 
taskforce :compositiontype; (*record containing all the information 
about the components of a task force*) 
newrecord : oprecord; (*record contaimmereat lene information 
about an operation *) 


procedure build_task_force; 
var 
: 1 : integer; (*index variable for task force items*) 
egin . 
Writeln('You will now begin building the task force.'); 
Writein;writeln;writeln; 


taskforce nomenclature := 'M110 8in SP HOW ', 
tasxforce 


“LIN Bra goat: 


tasktorece(. hoe LIN := "581750! ; 

taskrorcet.., -nomenclature:= 'M2 INF FIGHTING VEH': 
taskiorce(.l.).cquantity <= 0; 

taskforce(.2.).LIN := 1C76335'; 

LSaSKPOrece (ace -nomenclature := 'M3 CAV FIGHTING VEH!': 
tas Oree (a Za eauantd ity : 0; 

taskicorce(. 3.90 lain D12087' ; 

taskforce 3. OU Paola "Mli3 PERS CARR ICR see 
taskforce|.3. quantity : 

taskforce(.4.).LIN := £56896 ; 

taskforce(t.4, eS eal ae 'M901 CBT VEH ITV e. 
taskforcel.4. quantity : 

caskforce!.5. oN oss pi0726' 
taskforce(.5.).nomenclature:= 'M125Al1 81MM CARR re 
taskforce(.5.).quantity := OF 

taskforee(.6.).051N <= "D1O741'; 
taskforce(.6.).nomenclature:= 'M106Al1 107MM CARR '; 
taskforce(.6. pipe Bee O) 

taskforce(.7.).LIN := "RXKXER! ; 
taskforce (7; BAe ti SS ree 'M102 105MM HOW I. 
taskforce(.7. quantity 

taskxforce( .6.).,2 il s-= 57664! « 
taskforce(.8.).nomenclature:= 'MLO9 155MM SP HOW '. 
taskforce’ {Sm aduantity -= 0: 

taskforce a el N es 'K56981'; 

9.4 

taskzsorcet 77 Gi : 

taskforce. 20. sitter tac 'LTAUN-LOAD MLRS oS 
taskforce(.10. 7 quanta ity : 

taskforce( 4a kl: — 396694". 

taskforce( U1.) anemenclaruae i= ‘M163 VULCAN AIR DEF ': 
taskforce({.11. ‘quantity := OQ; 

tasxforce( LZ eis: D11668' 

tasxforce(.12. ).nomenclature:= (730 CHAP AIR DEH 
taskforce(.12.).quantity := OF 
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Lil, == 'T13374! ; 

giomene atures” 'Ml TANK 105MM vs 
; uantity : 

eet os= vi3104 

poenen eee 17 'M60 TANK 105MM I. 
Quantity = 

~-LIN := ae 

-nomenclature:= 'TOW LAUNCHER Is 
.quantity := 0; 

LIN := “RXKKKK! ; 

geen s OC Sabu noe 'M222 DRAGON LNCHR I. 
2 ee 

~LIN := RRX week, 

pe ae = 'M2 50 CAL MG te 


Baskererce( .13. 
Pasiksorce(n. Ss. 
taskeorce sl 3. 
taskrorce 14. 
taskforce(.14. 
taskforce(.14. 
BaSkLORece nto. 
Baskforcei. 1.5. 
taskrorce(.15. 
tasktorce@ 16. 
taskforce(.16. 
as KfOme e (lo. 
taskforce({.17. 
waskforce(.17. 


a lt a 


taskforce(.17. quantity 

taskforce(.18. ~LIN := CERARR 

taskforce. 183 ee eu 'M60 MG Use 
taskforce( .18. ‘Quantity. 

caskficrcekyl1 9. LIN ;= SSRI 

taskzorce(.19.) snomenclature:= 'M16Al RIFLE - 
Easktorcet, 197).quantity := 0; 


FOL Ls=ege CO num_enditems do 
pegin 
write('enter the number of '! Oi aa i1.).nomenclature); 
writeln(' in your ae force. 


readin(taskforce(.i ) quantity); 
yritela(taskforce(. ci’) quantity) 
Ciuc 


pa a 
pe eet aGiene task force has been built. task force composition is'); 
writeln; -writeln;writeln; 
fOr ie—= 1 to num _enditems do 
begin 
Piitertackeonce( 1. ).homenclature, yes 
DEEN Tae EOE Cc. ie) aWalne aity.) 


end 
end;(*end procedure buildtaskforce*%) 


procedure create_scenario; 


procedure readdate; 
var 
ok ; boolean; 
newdate : datestring; 
answer : char; 
begin 
ox:= false; 
repeat 
Bee the date on which the operation is to commence.'); 
Writeln('Use the form dd/mm/yy'); 
readin (newdate) ; 
wreiteln 
writeln( 'The date of the operation is ', newdate); 
writeln; 
writeln('Is this the correct date?'); 
Writeln ‘Enter the number corresponding EOuVvOun answer. |): 


writeln SW Miers , elslidie Es lovorgieiaeic 9 F 
writeln Ze NG, “date 2s ianeorrect | 
tain snsver yh 
if answer = '1' then 
begin 
newrecord.date:= newdate; 
ok:= true 
end 


until ok = true; 
writeln:; swriteln; writeln 
end; (*end procedure readdate*) 
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procedure readunit; 


const 

bianks ‘= ! I. 
var 

ok : boolean; 

answer 5. Chay 

unltname =: Uuniltstring- 
begin 

ok:= false; 

HeDeae 


writeln( ‘updat the name of the unit for which this estimate or '); 


writeln date is being prepared. For example- 1/33rd '); 
eadin(unitname) ; 


SAG aROE AL SOS, blanks); 

writeln; 

Gre teln(! The name of the unit is ', unitname); 
writein;writeln; 

writeln('Is this the correct unit name?!) ; 

writeln ‘Enter the number correspending to your answer.!); 
peeeeate 1 = yes, Unit name Us counece : 


é 
writeln 2= no, unit name 1s incergeae a 
readin(answer); 
if answer = '1!' then 
begin 


newrecord.unit:= unitname; 
ok:= true 
mend 
Well Oko=. erie: 
writeln:writeln;writeln 
end; (*end procedure readunit*) 


procedure readmission; 


Vat 
ok : boolean; 
mission_code : char; 
begin 


writeln('eEnter the number corresponding to the correct missions 
VrLeeln lv] attack, >): 
writeln('! Z2°= defend §‘')- 
ok:= false; 
repear 
readin(mission_code) ; 
Af Mission code =i: 
begin 
newrecord.mission := attack; 
ok:= true 
end 
else if misslon_code = '2' then 
becin 
newrecord.mission:= defend; 
ok:= true 
end 
else writeln('you have made an error in input, try again.'); 
Until Oc = states 
writeln;writeln;writeln 
end; (*end procedure readmission*) 


then 


procedure readclimate; 


var 
ok : boolean; 
climate _coce : char; 
began 


writeln('Enter the number corresponding to the correct climaceuas 


writeln('! Ue. Jolene 
Weute da) Ces eee a ce ae 
writeln(! 34 = 460 Fa a. 
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ok:= false; 
Repeae 
readln(climate_code); 


if climate_code = '1' 
begin | 
newrecord.climat 
ok:= true 
end 
icc eit ee limatescode = 
begin . 
newrecord.climat 
ok:= true 
end 
else 1f Glimate_code = 
begin 
newrecord.climat 
ok:= true 
end 


else writeln('you have 
Biot ok = true; — 

Vaasa vate ln awri ted _ 

end; (*end procedure readcli 


procedure readarea; 


var 
ok : boolean; 
area_code Chan: 

begin 
writeln('Enter the number 
writeln(' 1 - conus : 
writeln(' 2- europe ' 
writein(! 3 - korea 
ok:= false; 
eet 


readln(area_code); 
teal ed Goce et 
begin 
newrecord.area 
ok:= true 


—= 
— 


the 


ac 
Sls Cee iedscamCOde = 12 
begin 
newrecord.area:= 
ok:= true 
end 
Sflcecueeeecdnecdecode = '3 
begin 


— 


newrecord.area: 
ok:= true 
end 
else writeln('you have 
Mace ok = true: 
writeln;writeln;swriteln 
end; (*end procedure readare 


procedure readtftype; 


var 
ok : boolean; 
tfitype_code char; 

begin 
fmece in, Enter the number 
pecein( | ia armor 
writeln(' 2 - mechanized ' 
parce in | Sew Inbanery 
ok:= false; 
repe 


at 
readln(tftype_code); 


then 

e := hot; 
EZ Seen 

= temochace; 
'3' then 

e := cold; 


made an error in input, try again.'); 


mate”) 


corresponding to the correct area.'); 


n 


conus; 


then 


europe; 


then 


korea; 
made an error in input, try again.'); 


a*) 


corresponding mon unemeaunect tf type. '); 
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if tftype_code = '1' then 
begin 
newrecord.tf_type := armor; 
ok:= true 


end 
else if tftype code = “7iietnen 
begin 
newrecord.tf_type:= mech; 
ok:= true 
end 
else 1f tit,oe codes — ae eet nen 
begin 
newrecord.tf_type := inf; 
ok:= true 


end 
else writeln('you have made an error in input, try again.'); 
until ok = true; 
writeln;writeln;writeln 
end; (*end procedure readtftype*) 


procedure readtfsize; 
Var 
ck : boolean; 
tfisize_code §: chan; 
begin 
writeln('Enter the number corresponding to the correct tf size.'); 
writeln('! ie oaeealvoen =r 
Vritelnt | 2 - brigade 1 
ok:= false; 
repeat 
readin(tfsize_code) ; 
Lf tisizescode = 1! 
egin 
newrecord.tf_size := bn; 
ok:= true 
end 
else 1f tfsize_code = '2' then 
begin 
newrecord.tf_size:= bde; 
ok:= true 


then 


end 
else writeln('you have made an error in input, try again.'); 
until ok = true; 
writeln:writeln;writeln 
end; (*end procedure readtfsize*) 


procedure readintensity; 
var 


ok | 3 Deore aie 
Intensley secede scar, 
begin 


writeln('Enter the number corresponding to the correct intensity'); 
eqal\ere ll oh ihe gtibed symm t 


writeln(' 2 - mid ie 
Writelni! 3 - low > 7 
ox:= false; 
repeat 
Pee Col cubeis (cele 
Lf intensity secede — "1 Saenen 
begin 
newrecord.intensity:= hi; 
oks= true 
<icle , 
else if intensity_code = '2' then 
begin . 
newrecord.intensity:= mid; 
ok:= true 


OS 


end 


else if intensity_code = '3' then 
begin . 
newrecord.intensity:= low; 
ok:= true 
end 


else writeln('you have made an error in input, try again.'); 
BMtae ok = true; 
writeln;writeln;writeln ace 
end; (*%end procedure readintensity”) 


procedure readmopp; 


var 
ok : boolean; 
answer : char; 
begin | 
oer tise you expect the task force to be in MOPP level three'); 
writeln('or MOPP level four during this mission.'); 
writeln; 
writeln('Enter the correct number for your response'); 
writein« 1 - fae 
writelin(! a Ope) 
ok:= false; 
repeat 
readin(answer); 
if answer = '1' then 
begin a. 
newrecord.moppcondition:= true; 
ck:= true 
end 
else if answer = '2' then 
Cech 
newrecord.moppcondition:= false; 
ok;:= true 


end 
else writeln('You have made an error in input, try again.'); 
until ok = true; 
writeln;writeln;writeln 
end; (*end procedure readmopp*) 


procedure readpersonnel; 


const 

maxpersonnel = 10000; 
var 

ok : boolean; 

numpersonne! : integer; 
begin 

ok:= false; 

repeat 


writeln('Enter the total number of personnel in the task force.'); 
readin(numpersonnel1) ; 
if (numpersonnel > 0} and (numpersonnel < maxpersonnel) then 


begin 
newrecord.personnel_strength:= numpersonnel; 
ok:= true 

end 


ease began” 
write('The number of personnel exceeds program parameters.'); 
Wee Input the number again.' 
en 
until ok = true; 
writeln;writeln;writeln 
end; (*end procedure readpersonnel*) 
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procedure readterrain; 


var 
ok : boolean; 
terrain_code : char; 
begin 
writeln('Enter the number corresponding to the correct terrain'); 
Mp gakiele\ tient - Le Gpen sal. 
WELCeIN (4 2 -~- woods '); 
Weite ln 2 = sulle pe 
writeln(' 4 - mountainous '); 
ok:= false; 
repeat 
readin(terrain_code); 
if tevraingeece = schon 
begin 
newrecord.terrain:= open; 
ok:= true 
end 
else 1f rena neeodes = sar ewe 
begin 
newrecord.terrain:= woods; 
ok:= true 
end 
Close teen halgecoderm = Behe 
egin 
newrecord.terrain:= built_up; 
ok:= true 
end 
else if “terrdinmeodes =. 4 mene 
begin . | 
newrecord.terrain:= mountains; 
ok:= true 
end 


else writeln('you have made an error in input, try again.'); 
until ok = true; 
writeln;:writeln;writeln 
end; (*end procedure readterrain*) 


procedure readvisibility; 


var 
ok : boolean: 
Visibistityscodes= “char. 
begin ae 
writeln('Enter the number corresponding to the visibility'); 
Rigel icimlg ui i. ocd. Ba: 
writeln(' 27 aly 
writeln(' Sa= 7 PooGey )- 
ok:= false; 
repeat 
See ere re 
1f visibilityscodée. = iy athe 
begin he: 
newrecord.visibility:= good; 
ok:= true 
end 
else 15 Visibility ecode. — 2 senor 
begin oh 
newrecord.visibility:= fair; 
ok:= true 
end 
else 1f visibility scode — ie Sacnen 
begin ees 
newrecord.visibility:= poor; 
ok:= true 
end 


else writeln('you have made an error in input, try again.'); 
until okl=Stunc ae 
writeln;writeln;writeln 


end; (*end procedure readvisibility”) 


procedure readAF_ground_spt; 
var 

ok : boolean; 

Sls wet mc icity; 


Wig 
writeln('Do you plan on significant Air Force ground support?'); 
Whe abie(aalligt 
writeln('Enter the correct number for your response'); 
Wie e Lin 1 - re Se 
writeln(! 2, 2 59 Ke) lee) 
oxk:= false; 
hepeat 
readin(answer); 
Paeeiievete— | 1 eEhnen 
begin 
newrecord.AF_ground_spt:= true; 
ok:= true 
end 
else at answer = "Z\ then 
begin 
newrecord.AF_ground_spt: 
ok:= true 
enc a 
else writeln('You have made an error in input, try again.'); 
until ok = true; 
writeln;writeln;writeln 
end; (*end procedure readAF_ground_spt*) 


false; 


procedure readduration; 





ok : boolean; 
Smewer : char; 
begin ee... , | 
Se a Pumice rinse Cdyeor thasemission Of 1s this a‘)> 
wrateln('succeeding day of a continuing mission.'); 
writein; 
writeln('Enter the correct number for your response'); 
writeln(! 1 - first day'); 
writelin(' 2 - succeeding day '); 
ok:= false; 
Bepeat 
readlin(answer); 
fioeanswer esl” then 
begin | 
newrecord.duration:= first_day; 
ok:= true 
end 
else if answer = ‘2' then 
begun 
newrecord.duration:= succeeding_day; 
ok:= true 
end 


else writeln('You have made an error in input, try again.'); 
until ok = true; 
writeln-writeln;writeln 
end; (*end procedure readduration”) 


procedure readoperation_name; 


const 
blanks = |! Vis 

var 
ok : boolean; 
answer : char; 


i) 


operation_name : operationstring; 


begin 
ok:= false; 
Pepeae 


fe ee the name of the operation of which this mission ') 


writeln('is a part. For example- D-DAY '); 
readin(operation_name) ; 

strconcat(operation_name,blanks) ; 

writeln; 

writeln('The name of the operation is ', operation_name) ; 
writeln:writeln; 

Writeln( |e) ehise com: cei. 7 ae 

writeln('Enter the number corresponding to your answer.'); 


writeln('! 1 - yes, operation name 1S €orrect Se 
Write ba 2- no, operation name is incorrect'); 
readln(answer); 
if answer = ‘1" then 

begin 


newrecord.operation_name:= operation_name; 
OK:= true 
end 
until ok = true; 
writeln;writeln;:writeln 
end; (*end procedure readoperation_name*) 


procedure readcountry_name; 


const 
blanks = '! ; 
var 
ok : boolean; 
answer : char; 
country_name : countrystring; 
begin 
ok:= false; 
repeat 


writeln('Enter the name of the country in which this mission '); 


writeln('will be conducted. For example- West Germany.'); 
writeln('Be sure to capitalize the first letter in each word'); 
readin(country_name) ; 

strconcat(country_name,blanks) ; 

writeln; 

writein('The name of the country is ', country_name); 
writeln;writeln; 

Writedm fis -thismeorrecty: a). 

writein('Enter the number corresponding to your vansweaa. 


writeln('! l= yes, country name 1S GorneGtaae os 
writein(' 2=no, country name 1S incor sce. 
readlin(answer); 7 
12-answer =o i! then 
begin 
newrecord.country:= country_name; 
ok:= true 
end 


Uniti Ok eater an 
writelin;writeln;writeln 
end; (*end procedure readcountry_name*) 


procedure readrationpolicy; 


var 
Ok : boolean; 
answer : char; 

begin 
writeln('Enter the number corresponding to the ration policy'); 
writeln('during the duration of this operarrzone 
writeln;writeln; 
wy ice ln i - p-c-PY) 
writein(! 235 Caer = 


/ 


ok:= false; 
repeat 
readln(answer) ; 
if answer = '1' then 
Begin 
MevRececerd.tatlon policy:—= b_¢_b-> 
ok:= true 
end 
Slicecmeteatsver = 62. then 
ereieabe' . 
newrecord.ration_policy:= c_c_b; 
ok:= true 
end 
else writeln('You have made an error in input, try again.'); 
until ok = true; 
writeln 
end; (*end procedure readrationpolicy*) 


procedure buildconsarray; 
var 


1; integer; (*loop control variable”) 
begin 
newrecord.consumption(.1.).supply_item := 'water ie 
newrecord.consumption(.1.).unit_of_measure := 'gallons'; 
IeVEcecOrad vconsumptLon(.Z2. .supply_item >= 'B rations 7% 
Mewrecora.cCOnSsuMpczOn| .2.).UnLt.of_measure := ‘meals '; 
newrecord.consumption(.3.).supply_item := 'MRE rations ee 
newrecord.consumption(.3.).unit_of_measure := 'meals '; 
newrecord.consumption(.4. cushy item := 'class II supplies '; 
newrecord.consumption(.4.).unit_of_measure := 'STONS '; 
newrecord.consumption(.5.).supply_item := 'diesel fuel "3 
newrecord.consumption(.5. Gat of_measure := 'gallons'; 
newrecord.consumption(.6.).supply_item := 'class IV supplies Ms 
newrecord.consumption(.6.).unit_of_measure := 'STONS '; 
newrecord.consumption(.7.).supply_item := 'tank ammo 105mm Ls 
newrecord.consumption(.7.).unit of _ measure >= ‘rounds '; 
newrecord.consumption(.8.).supply_item := 'TOW ammo 
newrecord.consumption(.3.).unit_of_measure := ‘rounds '; 
newrecord.consumption(.9.).supply_item := 'DRAGON ammo '; 
newrecord.consumption(.9.).unit_of_measure := 'rounds '; 
newrecord.consumption(.10.).supply_item := 'Howitzer ammo 105mm! ; 
newrecord.consumption(.10.).unit_of_measure := 'rounds '; 
newrecord.consumption(.11.).supply_item := 'Howitzer ammo 155mm'; 
newrecord.consumption(.11.).unit_of_measure := ‘rounds '; 
newrecord.consumption(.12.).supply_item := 'Howitzer ammo 8in '; 
newrecord.consumption(.12.).unit_of_measure := 'rounds '; 
newrecord.consumption(.13. . supply item := 'Vulcan ammo 20mm Me 
mewnecord.consumotion(.13.).unit of _ measure = rOUnadSs. "> 
newrecord.consumption(.14. Pee item := 'Mortar ammo 81mm a 
ewrecord.ccnsumption(.14.).unit_of_measure := 'rounds '; 
newrecord.consumption(.15.).supply_item := ‘Mortar ammo 107mm _ '; 
Mevnecord.consumption(-15.)-unit_of measure := ‘rounds '; 
newrecord.consumption(.16.).supply_item := 'MG ammo .50 caliber'; 
newrecord.consumption(.16.).unit_of_measure := 'rounds '; 
newrecord.consumption(.i7.).supply_item := 'MG ammo 7.62mm 2 
newrecord.consumption(.17.).unit_of_measure := ‘rounds !; 
newrecord.consumption(.18.).supply_item := ‘rifle ammo 5.56mm_ '; 
newrecord.consumption(.18.).unit_of_measure := 'rounds '; | 
mewnecord.consumption( 219: » Spe ase := 'class VII supplies '; 
Peanecord.consumptiong Tae ume of measure := 'STONS '; 
newrecord.consumption(.20. .supply item := 'class VIII supplies’; 
newrecord.consumption(.20.).unit_of_measure := 'STONS '; | 
newrecord.consumptiont.21.).supply_item := 'class IX supplies '; 
newrecord.consumption(.2i.).unit_of_measure := 'STONS °; 
fOr 1:= 1 to num_supp#y_items do 
newrecord.consumption(.i.).actual_consumption := 0 


Bea, ("end procedure buildceonsarray~) 


18 


begin (“begin of Greate scemanio.) 


page; 

Becca 'The following duc seeen describe the operation for which '); 
writein('the program will create a logistics requirements estimate.'}; 
writeln('All questions must be answered as directed." ); 
writeln;writein;writeln; 

readdate: 

readunit; 

readtitype; 

readtfsize; 

reaamission; 

readduration; 

reacdcperatlon_name; 

readarea; 

readcountry_name; 

readclimate; 

reacintensity; 

reacniopp ; 

readterrain; 

readvisibility; 

readAF_ground_spt; 


reacperoounel. 
readrationpolicy; 
bulldconsaryray; 
newrecord.update_source:= none; 
newrecord.update := false; 


end;(*end procedure create_scenario*®) 


procedure create_estimate; 


var 
1 : integer; (*index variable for input into consarray*) 
procedure water_estimate; 
var . 
drinking_requirements : real; 
heat_treatment : real; 
personal_hygiene : real; 
food_preparation oea 
begin 


case newrecord.climate of 
hots) begin 

if newrecord.moppcondition = true then 
drinking_requirements:= 3.5 

else drinking_requirements:= 3.0; 

heat_treatment:= 0.2; 

personal_hygiene:= 0.7; 

se newrecord.ration policy = b_c_b then 
food_preparation:= 1.0 

else food_preparation:= 0.5 

end, 
temperate : begin 
if newrecord.moppcondition = true then 
drinking_requirements:= 3.0 

else drinking_requirements:= 1.5; 

NEAESErearee = —sero. 

personal hyerenc.=s0) ce 

if newrecord.ration_policy = b_¢c_b then 

food_preparation:= 1.0 
else food_preparation:= 0.5 


end; 
lola! Was lelere pli - 
if newrecord.moppcondition = true then 
drinking_requirements:= 2.0 
else drinking_requirements:= 2.0; 
heat_treatment:— O20" 
personal_hygiene:= 0.7; 
1f newrecor -ration_policy = b_c_b then 
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Food _preparation:= 1.0 
else food_preparation:= 0.5 


en 

end; (*end case statement”) . 
newrecord.consumption(.1.).general_estimate:= . 
PONG IG SSC aap Sa + heat_treatment + pepsongieny iene + 
ood_preparation)* 1.10 * newrecord.personnel_strengt Y 


end; (*end procedure water_estimate*) 


rocedure class_I_estimate; 
egin . | 
meee ec Once at ton pe), = Do Clo) tren 
egin . 
(eo laa 
) l_estimate: 


ge acco sea oP SUP an 4 
(newrecord.personnel_strength 
newrecord.consumption(.3.).genera 
newrecord.personnel_strength 
end 
else 
begin 
newrecord.consumption(.3.).general_estimate: 
newrecord.personnel_ strength * 2; 
newrecord.consumption(.2.).general_estimate: 
F newrecord.personnel_strength 
n 


2 
end; (*end procedure class_I_estimate*) 


procedure compute_general_supplies(consumption_array_index:integer; 
| consumption_factor real); 
megin . | 
newrecord.consumption(.consumption_array_index.).general_estimate:= 
round( (newrecord.personnel_strength * consumption_factor) / 2000) 
end; (*end procedure compute_genera Were aices | 


Pmocedire diésel_fuel_estimate; . 
(*general formula used = for each weapon , take the sum of the following 
+ weapons * #hrs_idle * consumption_idle + 
# weapons * #hrs_xcntry * consumption_xentry + 
# weapons * #hrs_2ndrds * consumption_2ndrds. 
Then sum all of these for total diesel fuel required. 
Heee : 


operating 24 hours 


begin 


case newrecord.area of 


korea newrecord.consumption(.5.).general_estimate:= 
round taskpovee(. 1). ).quantit SO Go, HO. + 
Pacm@eence(niay squeantrty ~*~ 5.5 * 18.0 + 
Bog meOneoOG aj cgiantaty ~ 5.5 * 8.6 + 
easMEeOnee we )eauamtity ~*~ 3.0 * 6.4 + 
Biometry cduantity * 5.5 * 18.0 + 
eacieiOwecte we cuanelty ~ 5.5 ~ 68.6 + 
Boomeerce oe nauamerty “ 3,1 * 1.0 + 
Eaoemencowmomnauantity *~ 5.5 * 8.6 + 
Pot eOnccwmeryncuantaty *~ 5.5 * 10.3 + 
Ero eeenccweceyaatiantity * 3.0 * 1.0 + 
Pose necumermrauantity ~~ 5,5 *~ 8.6 + 
Gaskiorce(.4.).queantity * 5.5 * 8.9 + 
Edcinonce (eee scdmantity *~ 4.) * 1.0 + 
Posiescgee oe ecduantity ~ 5.0 * 8.6 + 
EiSmegee (oom eiaitity ~*~ 5.0 * 10.3 + 
Gasicenes( O.ymauantity *~ 4.1 * 1.0 + 
PS eHOnce se Omesianeruy ~*~ 5.0 * 10.0 + 
HasktoncemoWpauantity ~ 5.0 * 13.3 + 
taskforce(.Manequantity *24.0 * 0.2 + 
taskforce .8.). quantity Ca te ee Ot 
ie 


the fuel estimate for 105mm towed howitzer is for a M35 vehicle | 


europe 
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taskforce(.3.).quantity iL 
basknonce (s+. heatanti ty 
taskforce(.4.).quantity 
taskforce(.4.).quantity 
taskforce(.5.).quantity 
taskforce(.5.).quantity : 
taskforce(.5.).quantity Os 
taskforce(.6.).quantity : 
wasweeonee(.o.). quantity i 
Pasienorce(. 6.) Giantl CY iL 
taskforce(.7.).quantity 

Pasion ce(.o. }). quantity 

Eas eeonee | 7o ) .GuAnt ity 1 
taskforce(.8.).quantity i 
tasweoree(- 9m). quantity 

faskforce( .9-)..quantity 1 
taskforce(.9.}). \guantity i 
taskforce(.10. Pquaneaey 


taskforce(.10.).quantity 
Caco nce (eno. ). quantity 
Casmeorce( jl). quantity 
taskforce(.11.).quantity 
Pasi sORCet eta) quantity 
Bosh porGewe 12. ).quantity 
taskforcéw.iZ.).quantity 
tasisoree@miZ2.). quantity 
Pao mmonce@, Joep Guant ity 
Bacio gee oye Cuanewey 
Bas eROnee (loa) CUAMELEY 
casktorce(.14.). quantity 
taskforce(.14.).quantity 
taskforce(.14.).quantity 
end; (*end case statement”) 
end; (*end procedure diesel_fuel_estimate*) 
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rocedure compute_ammo(cons_num,num_weapons,ha,hd,ma,md,la,ld:integer) ; 
egin 
Ease newrecord.intensity of 
hi :case newrecord.mission of 
attack : newrecord. consum tion(.cons_num.).general_estimate: 
num_weapons 1a; 
defend : newrecor ‘eonsunpt ion(. .cons_num.).general_estimate: 
num_weapons 
end; 
mid :case newrecord.mission of 
attack : newrecord.consumption(.cons_num.).general_estimate: 
num_weapons * ma; 
defend ;: newrecor .consumption(. cons_num.).general_estimate: 
num_weapons * md; 
end; 
low :case newrecord.mission of 
attack : newrecord.consumption(.cons_num.).general_estimate: 
num_weapons * la; 
defend : newrecor consumption ( . .cons_num.).general_estimate: 
num_weapons 


end 
end end case statement”) 
end; (*end procedure compute_ammo*%) 


procedure adjust_estimate; 
const 


max_candidates = 10; (*max number of candidate analogies * ) 


. 

candidate_info = record 
index_num : integer; eer into history array of records x 
strength_pts : integer; (*measure of analogy strength s 


qi 


used : boolean (*used in adjustment analogy selection *) 
end;(*end record candidate_info*) 


candidates = array (.1..max_candidates.) of candidate_info; 
var 


nly *loop control var into analogies = 
adjustment_index, pene control var into consumption * 
num_candidates, Anumber of analogous records x 
index :integer;: Xindex into the history files ‘ 


analogy_candidate : candidates;(*candidate records for adjustment 


function analogous(index:integer) : boolean; 


begin 
with history(.index.) do 
begin 
Lf (update = true) and 
moppcondition = newrecord.moppcondition) and 
mission = newrecord.mission) and 
intensity = newrecord.intensity) and 
climate = newrecord.climate) and 
(area = NewnceOrceaweany mane 
duration = newrecord.duration) then analogous:= true 
eee analogous:= false; 
en 


end; (*end function analogous”) 


procedure adjust (i: integer); 
var 


sum_error 2 igeelil : Xsum of errors in analogies usediee 
Sui que) eves A pgiovslil *sum glty pts in analogies useam. 
anaLlogy_coun integer; *loop control variable 


begin 
sum_error:= 0; 
sum_quality_pts:=0; 
for analogy_count := 1 to newrecord.analogy_info.num_analogies do 
if history(.newrecord.analogy_info.analogies(.analogy_counts): 
7 analogy_index.).consumption(.i.).general_estimate > 0 then 
ecin 
sum_quality_pts:= sum_quality_pts + 
newrecord.analogy_info.analogies(.analogy_count.).quality_pts; 
sum_error:= sum_error + . . 
snewrecord. ana logy_info-analogies( sand oe a ts 
*((history(.newrecord.analogy_info.analogies(.analogy_coun ae 
analogy_index.).consumption(.i.).actual_consumption - 
history (-mewrecord: snails akin oneness .analogy_count.). 
analogy_index.).consumption(.i.).general_estimate) / 
history( -newrecord. analogy inte ee 
F analogy_index. ).consumption(.i.).general_estimate) ) 
hia 
newrecord.consumption(.i.).adjustments:= . 
round ( newrecord.consumption(.i.).general_estimate * 
| sum_error / sum_quality_pts) ) 
end; (*end procedure adjust*) 


function compute_strength(af,vis,ter,update entry; unit, cpname, atave, 
vis_wt, ter_wt,update_wt,cntry_wt, uni caw ee 
opname_wt,lndex : integer) :integer; 
var 
a total_pts : integer; (Xtotal number of strength points *) 
egin 
total _pts:= 0; . . 
if (unit = 1) and (newrecord.unit = history(.index.).unit) 
_ then total_pts:= totals piss sume 
if (usdate = 1) and (history(.index.).update_source = factual) 
then total_pts:= total_pts + update_vwt; 
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t- 
ma) 


(emery = 1) and (newrecord.country = history(.index.).country) 
tien eoOtal pts:= total pts + cntry_wt; 


if (ter = 1) and (newrecord.terrain = history(.index.).terrain) 
EGeREOtal pts:— LOtal pts + ter_wt; j . 

if (opname = and (newrecord.operation_name = history(.index.) 
.operation_name) then total_pts:= total_pts + opname_vwt; 

Tees = 1) and UeCUISCOE loi 5_epemiae ck —ehis tery. Inde x.» 
Pe eguoMMde sot) then tocalipts:= total pts + a£_wt; 


if (vis = 1) and (newrecord.visibility = history(.index.).visibility) 
then total_pts:= total_pts + vis_wt; 
compute_strength:= total_pts 
end;(*end function compute_strength*) 


function pick_best_analogy:integer; 
var 


strongest_analogy, *index of strongest eh eh * 

analogy_candidate_num, *index into analogy_candidate array * 

3, Aloop control variable x 

max_strength : integer; (*maximium analogy strength x 
begin 


Scron es Ueto to 0; 
max_strength:= -l; 
mOrej:= 1 to mum candidates do 
begin 
at Roe ac ons dato .).used = false) and 
: (ana Be re etic een mene chines > max_strength) then 
egin 
Ree mereenacn := ee ae ot eae 
2 Gronge s (aa eee := analogy_candidate(.j.).index_num; 
analogy_candidate_num:= 
elerel s 
end; . 
analogy_candidate(.analogy_candidate_num.).used:= true; 
ick_best_analogy:= strongest_analogy; 
end;(*end function pick_best_analogy*) 


procedure print_analogies; 
var 
ie: integer; (*loop control variable =) 
begin 
Page; 
writeln;writeln:writeln;writeln; 
writeln(' ANALOGY REASONING'); 
writeln;writeln;writeln-writeln;writeln; 
writeln('All of the available data on past operations has been '); 
writein( ‘evaluated to identify analogies to the current operation.'); 
atte LNs 
writeln('A previous operation 1s considered analogous to the'); 
write('current operation if the following conditions are '); 
writeln('satisfied:'); 


Pete ln; ; 

Peiecic) Pele smustoOntca! record of the previous one Aen has); 
ema cteln(' been updated with actual consumption data.'); 

ia te in: =. 

Bae cetn( 2. Both operations have the same mission.'); 

Paes] ths 

mete (| 3. Both operations took place in the same area '); 
Peeecein( Of the world.'); 

mete ln; ; ; 

perce Tn 4, Both operations took place in the same climate.'); 

yee ce Ln > 

ate Se S0th eperations tock place under the same chemical' ); 
ee cen defense mission oriented protective posture.'); 
wWriteln: 

writeln(' 6. Both operations involved the same combat intensity.'); 
writeln; 


a2 


ee 7. Both operations were first day engagements or'); 
writelin('! succeeding day engagements of the same mission type. ' 
writeln;writeln;writeln;writeln;writeln; 

write('The following operations are analogous under this '); 

wEt cen oO ee ee 
writeln; write ln. Wisco, 


DATE UNIT MISSION AREA , CLIMATE MOPP a 
He eee FIRST/ SUCCEEDING DAY") 
WELtS (| err cere rr rr rr rr rr ee eee ‘ye 


1£ num_candidates > 0 then 
begin) | 
for 1i:= lL to fi legeounce made 
1f analogous(i) then 
begin 
bbegee reson cet ; hs 
Write (hascorytae. sunit); 
Gase Nis vouy\. 1.) miss lommorn 
attack : He Seen Me 
defend : write('DEFEND 
end; 
case history(.i.).area of 
conus: Weibel EURO: a 


e 
; 


europe : write('EUROPE 
Korea : Write('XOREA | 
end; (*end case statement*) 
case histery(.i.).climate of 
hot : wWrite('HOT ayia 
temperate : write('TEMPERATE a 
cold > Wrage COED 
end;(*end case statement*) 
if histor (.1.).moppcondition = true then 
write('YES ) 
else write({'NO. ee 
case Nistory( .a) imitans iy eos 
hi vite HD" '); 


, 


mid =/WE i Ge (een D ee 
low : write('LOW ae 
end; (*end case statement*) 
Gase history (ci = duis etomaos 
Piece ida y rece Dee DAY oy 
succeeding day : writeln( SUCCEEDING Dame 
end; (*end case statement’) 
writeln 
end 
end 
else begin 
writeln;writeln;writeln; . 
Write’ there anemne analogous operations in the history '); 
writeln('in the history cen 


end; 
end; (*end procedure print_analogies*) 


procedure print_water_reasoning; 
var 
1. 2 Inteder: (*loop control variable 


wreiteln;writeln;writeln;writeln; 

Wiretelryn! WATER SUPPLY REASONING'); 
writeln;swriteln;writeln;:writeln;writeln; 

writeln('The analogous operations are evaluated on the strength!); 
writeln('of their similarity to the current operation fae ices 
writeln('areas pertinent to water supply consumption. Each of the'); 
writeln('points of similarity are weighted independently.'); 


SO 


ie 


a 





writeln; 
Hea cc weighting Of each item 15 in parenthesis below the '); 
writeln('item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT'); 
at welt . 
writein('Up to three previous operations are considered in the '); 
writeln('adjustment algorithm, with those operations with the '); 
writein('highest number of quality points being chosen for this '}); 
writeln('purpose.'); . . 
writeln;writeln;writein;writelin;writein; 
Writein( |! ---secn secre ccc r rrr cers creer reser 
aeicein( ! DATE UNIT COUNTRY Ui ABB 
writeln( | NAME SOURCE ! 
Writeln( |! scree ccc eter cee rr ec ete eset terre ceere- 
writeln; 
er CZ) (1) ie 
Piet ee ee OS i SSS 
writelin;writein; 
for 1:= 1 to num_candidates do 
begin 
ee Eee Ee ee ata ari (acer eigerrle ee a 
ey Pees ory( ,analogyicandidats(.1,).index_num.).unit, ' 
Hf HhUstory( .analogy_candidate(.i.).index_num.).country = 
newrecord.country then write('YES 3) 
else sweice (7) NO iy ier 
if history(.analogy_candidate(.i.).index_num.).update_source = 
factual then writelin('YES') 
else writeln(! NO'); 
writelin . 
end;(*end for loop*) . 
end; (*end procedure print_water_reasoning®) 


“ue NOG NH Ne 


io 


procedure print_subsistence_reasoning; 
var 


i: integer; (*loop control variable 
beqin 

page; 

writelin;writein;writeln;writeln;writelin; 

mete in( SUBSISTENCE SUPPLY REASONING' ); 


Peeceln writele writein;writein; 
writein('The analogous operations are evaluated on the strength! ); 





Petre Or trelmesimitcadmity to the cumnent operation in those’); 
hee laa soe ne Tne vee cOUSMbSistence Comstmption. Each of the'); 
Oe baeee ‘points of similarity are weighted independently.'); 
Writein: 

crac Cag ueLniguOnseaciwecen lovin parenthesis below the '); 
ee ‘item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT'); 
Weateln: 


writein('Up to three Peevaeus 6perations are considered in the '); 
writein('adjustment algorithm, with those operations with the '); 
writelin('highest number of quality points being chosen for this '); 
writein( 'purpose.'); 

Voltein writeln;writein;writeln;writein> 

Pee Gl eo a Oe eo ee esas 
fabee lat DATE UNIT UND UEDATE 
moircein(! NAME SOURCE 
Wl te lit | aan ma www ww ww wn enn enna ene 
wrateln; 

writein('! (ls) eal! ie 
Pt Ole ee ee ; 
mercein;writein; . 

for 1:= 1 to num_candidates do 


™=e ™“e “ee “6 


begin 
eee pee eee oe etaigece) 7’ ( yudex num.) cate. Lee 
write(history(.analogv_candidate(.i.).index_num.).unit,' '); 


Peehistory( .analogy_candidate({ .i1.).index_num.).unit = 
newrecord.unit then write('YES ') 

ee oe NO he . 

if history(.analogy_candidate(.i.).index_num.).update_source = 


8] 


factual then writeln('YES') 
else writeln(' NO'); 
writeln 
end; (*enderer loops 
end; (*end procedure print_subsistence reasoning”) 


procedure print_fuel_reasoning; 


var 

3 ane sfe(Dic 9 (*loop control Var eaves 
begin 

page; 

writeln;writeln;writein; swriteln;writeln; 

writeln(! FUEL SUPPLY REASONING'); 


writeln;:writeln;writeln;writeln; 

writeln('The analogous, operations are evaluated on the strength’ ie 
writeln('of théiy sama tanta tom paemelinnen: operation in those' 
writeln( areas perRtineme soe rues SURE consumption. Each of the! ); 
writeln ‘points of similarity are weighted independently.'); 
writelin; 

pep eo a se weighting of each item is in parenthesis below the '); 
Seay ltem name. l.e. (2) = 2 points for AF_GROUND_SUPPORT'); 
writeln; 

writeln('Up to three poeeere operations are considered in the '); 
writeln adjustment a rithm, with those operations with thems 
Wri tedN ‘highest number of quality points being chosen for this ty, 
writelin('purpose. 

writeln;writeln; etoalen: writeln;writeln; 

WELLE ( ben nr tr rr rr rr rr rr rr rrr en cence ccc ccccce- Be 
WHiteln( |! sec ccc eer c ccc rccceccecec- ‘5 

write(' DATE UNIT AF TERRAIN hee 

writeln( ‘UNIT COUNTRY OPERATION UPDATE'); 

write(' GRND_SPT i); 
writeln('NAME NAME NAME SOURCE) 

WC ‘ye 


igae Lith aaa = $9595 > — [oes abe ae '); 
writeln:writeln; 


4 


for 1:= 1 to num_candidates do 


pégin 
ees eee .analogy_ Beer acc es ee aa .index_num. Ga oe 
write(history(.analogy_candidate index_num. ) Unite 


Lf fiseors.e analogy candidate(.i. ) inde num.).AF_ground_spt = 
newrecord.af _ground spt then write('YES 

else eee 10 . 

if history(.analogy_ candidate(. ie )- index num. ). terrain 
newrecord, terrain then write(! SOUS) ) 

else write 

if history(.analogy sanaiascae iL.) andes num. ) Une = 
newrecord. unit then write(! YES e, 

else write NO 

if history(.analogy_ See © aie )- index_num.).country 
newrecord. Gourtry then write(! YES ') 

else eee NO | 

if Historyienalocy Bee date(.1.).index_num. ).operation_name 
= newrecord. operation_ name then write(' YES Ny 

else are NO 

if history(.analogy_ candidate. 1.).index_num.).update_source = 
factual then writeln(' Bo) 

else write la@ NO'); 

writeln 

end; (“end (roimalloan 2) 
end; (*end procedure print_fuel_reasoning*) 
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precedure print_ammo_reasoning; 


var 
1: integer; (*loop control variable 
begin 
Page; . 
writeln;writeln;writeln;writeln;writeln; 
writeln(' AMMUNITION REASONING'); 


writeln;writeln;writeln;writeln; 

writein('The analogous operations are evaluated on the strength! ); 
VereetMmeroneunheiG Slmilarity to the current operation in those'); 
Pol teliivuseeas pertinent to ammo stare SOnoiie lon ee demmeierhne ) >; 
ce nae of similarity are weighted independently.'); 

weLtein ; 

Favret os uabe Welchting Of each item 15 in parenthesis below the '); 
te ep 'i3tem name. i.e. (3) = 3 points for AF_GROUND_SUPPORT'); 
wie @ LY): 

rec aaa three previous operations with the highest number of'); 


writeln('quality points are used in the adjustment algorithm.'); 

writeln;writeln;writeln;writeln;writeln; 

a oe 
Writeln( ! nnn nnn nn nc nn rn ee cnn ern e nnn nnen- ye: 

weerte(* DATE UNIT AF TERRAIN Vise cine es i 
writeln(' UNIT COUNTRY OPERATION UPDATE'); 

write(! GRND_SPT te 
writeln( 'NAME NAME NAME SOURCE) - 

WELLE (| mer enn nnn nn nn rn rn nn en en een enna +e 
PE BE MQ OSS SS 3 I II '); 

writeln; 

write('! 6 cZ) (1) Phe 
tet cbeln(' <1) (1) 1 Cin je 

WEL (| en nr nr rr rr rr rr rrr ener r cern ye 
Writeln( | enc r errr ccc e nce ce een ne nn ee ee nnn nn '); 


writeln;writeln; . 
for 1:= 1 to num candidates do 


bedin 
SE ee seed ce cena (cake Ye 
Dipteees Pom maercinalogvecandl date (ain. ndexinum.).unit,' '); 


if history(.analogy_candidate(.i.).index_num.).AF_ground_spt = 
newrecord.AF_ground_spt then write('YES 

oP cane NO Ne 

if history(.analogy_candidate(.i.).index_num.).terrain = 
newrecord.terrain then write('YES .) 

else write(! NO Oe | ee. 

i> Aletomy, “Vaal Siedtante(aa. i iadex NUM .visibiiity = 
newrecord.visibility then write(' YE ie) 

else write('! NO oe 

iz history(.analogy_candidate(.i.).index_num.).unit = 
newrecord.unit then write(' YES J 

else write(' NO Lefer | 

if history(.analogy_candidate(.1.).index_num.).country = 
newrecord.country then write('YES >) 

else eee NO oe . 

Poieabocy(.analogysecamd1date (ol.).1ndex_num.).operaticn_name 
= newrecord.operation_name then write(' YES - 

ets eae NO '\. 

1f history(.analogy_candidate(.i.).index_num.).update_source = 
factual then writeln(' mes! 

STsemwilEte Li Nor)"; 

writeln 

end; (*end for loop*) 
end; (*end procedure print_ammo_reasoning* ) 


procedure print_Gen_supplies_reasoning; 
var 
i: integer; (*loop control variable 
begin 
page; 4 t t e 
writeln;writeln;writeln;writeln;writeln; 
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Cie tae © leas GENERAL SUPPLY REASONING'); 
writeln;writeln;writeln;writeln; 

writeln('The analogous operations are evaluated on the isitrengunes | 
writeln('of their similarity to the current operation in those"); | 
writeln areas pertinent fo gemeuan ou consumption. Each of the! Me 
ee 'points of similarity are weig independently. '! 

writeln; 

Mrs eis weighting of each item is in parenthesis below the '); 
eran item name. i.e. (2) = 2 points for AF_GROUND_SUPPORT'); 

Wr ite bine 

Writein('Uo to three Sebel eps operations are considered in the '); 
writeln('adjustment algorithm, with those operations with the '); 

writeln ‘highest number ope quality points being chosen for this 
Write ln  Diuypeser 

writein;writeln; ey writeln;writeln; 





WIL CS (ee ) 
WE DCCU Um ee ee ee ee 

write(! DATE UNIT AF TERRAIN VISIBILGEs ) 
writeln('UNIT COUNTRY OPERATION UPDATE'); 

write('! GRND_SPT ae 
writeln(’ NAME NAME NAME SOURCE Se 1) 
Wee ee ee ee i eee . 
write ln (!<----0> < 66 ee ly. 

eee 2 (2) (1) ') 
write 1 ; 
writeln(' e! CT) 7 CZ) eee 

WE '). 
writeln(' a ialeinintatatatntatatatatatetetatatatatata tata taiatetatetateiateteter ie 


Writel a) n;writeln; 
BOr 1:= 1 to num_ candidates do 


degin 
ee re rand Logy = Sees ae Ke .index_num. \ .date, he 
rite (history(.analogy_candidate indexinum. alae De 


ite history(. analogy_candidate(.1. ‘. Es _num.).AF ae _spt = 

newrecord.aAF _ground spt then write(! YES am 

else hee NO 

if histcory(.analogy_ candidate (. ae = index_ num. ).terrain = 
newrecord.terrain then write ES 1») 

else oa NO '); 

Lf history .eaelod, candidate(. 1.) nde xenumean visibility = 
newrecord. visibility then write(' YES > 

else write (! NO | 

if history(.analogy candidate(. in). ineGexm num. ).-unit = 
newrecord, ase then write(' YES ee 

else ees N 

if history analogy_ candice as, )- index_ num. ) county. 
newrecord.country then se YES 

else eee NO 

if history(.analogy_ <angeceae .).index_num.).operation_name 
= newrecord. cperation_ name ened Phen! | vos ) 

else sees NO 

if history (analogy. candidate ( i.).index_num.).update_source = 
factual then writeln(' ES') 

else writeln(' NO'); 

writeln 

end;(*end for loop*) 
end; (*end procedure print_Gen_supplies_reasoning*®) 


begin (*procedure adjust_estimate™”) 
newrecord.analogy_info.num_analogies:= 0; 
index:= file_counter; 
num candidates:= 0; 
ene (num_ candidates < max_candidates) and (index > 0) do 
egin 
vP analogous(index) then 
begin 
num_candidates:= num_candidates + 1; 
if newrecord. analogy_info. num _analogies <3 then 
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newrecord. analogy_info.num_analogies:= 
hevwnecosc, No logqvantizo.numeanalogres + 1; . 
Pec a aa eae candrdates:)-2ndex_num:= index; 
end: 
index:= index -l; 
end;(*end while statement”) 
print_analogies; . 
snd Be ecu gan al ogy TN FOeMEenerogzes > 0 then 
egin 
cer 1:= 1 to num_candidates do 
begin | 
analogy_candidate(.i.).strength_pts:= 
ecrplvouct mengea(Gfume,1,1,0,0,0,0,0,1,1,0,0, 
. | See epee ccnee ce) index num); 
meee oot ase ee sey) aused == alse 
eng 
for 1:= 1 to newrecord.analogy_info.num_analogies do 
begin . . 
newrecord.analogy_info.analogies(.i.).analogy_index:= 
pick_best_analogy; | 
newrecord. analogy_info.analogies(.i.).date:= 
history(.newrecord.analogy_info.analogies(.i.) 
.analogy_index.).date; 
newrecord.analogy_info.analogies(.i.).unit:= | 
history(.newrecord. analogy_info.analogies(.i.) 
-analogy_index.;.unit; . . 
ee gate eee eo aes equality pts := 
Gomeuime strength (0,0/0,17,1,0,0,0,0,0,1,1,0,0, 
: newrecord. analogy_info.analogies(.i.).analogy_index) 
SiG 
print_water_reasoning; 
aajuse(h)- . 
for 1:= 1 to num_candidates do 
begin . 
analogy_candidate(.i.).strength_pts:= 
Seioutenst peng O00 0 71,007 0,0 1071 0 
. . analogy scandidate(,1>) index _num) ; 
analogy_candidate(.1.).used:= ralse 


for 1:= 1 to newrecord.analogy_info.num_analogies do 
Degin 
newrecord.analogy_info.analogies(.i.).analogy_index:= 
pick_best_analogy; | | 
newrecord. analogy_info.analogies(.i.).date:= 
history(.newrecord.analogy_info.analogies(.i.) 
.analogy_index.).date; . 
newrecord.analogy_info.analogies(.i.).unit:= | 
history(.newrecord.analogy_info.analogies(.i.) 
.analogy_index.).unit; ! . | 
ts eo cat ogses\ 9201) «quality pts: 
Seieae stmeceigtui 60,10 ,1,0,0,0,0,1,0,1,0, 
FE newrecord.analogy_info.analogies(.i.).analogy_index) 
end: 
print_subsistence_reasoning; 
Sens tz 
adjust(3); 
[oP eijam i FO MUmscdid1dates de 
begin 
analogy_candidate(.i.).strength_pts:= 
Semon Wamnenengeni( i; bat dl d,1,271,272, il 1, 
| analogy_candidate(.1.).index_num) ; 
analogy_candidate(.1i.).used:= false 


ae 1 to newrecord.analogy_info.num_analogies do 
egin ; 
newrecord.analogy_info.analogies(.1.).analogy_index:= 
pick_best_analogy; | 
newrecord. analcogy_info.analogies(.i.).date:= . 
history(.newrecord.analogy_info.analogies(.1.) 
-analogy_index.).date; 
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newrecord.analogy_info.analogies({.i.).unit:= 
history(.newrecord.analogy_info.analogies(.i.) 
-analogy_index.).unit; . . 

newrecord.analogy_info. analogs at ee ae 
compute_strength(1,1,1, 1) eee 

newrecord.analogy_info.analogie 


bpemeiad, 


s(.i.).analogy_index) 


Gen_supplies_reasoning; 


ed 


ad ust(6):; 


r4 


adjust 23): 


adjust( Zi): 
for i:= 1 to num_candidates do 
pega - La.) 
analogy _Candidate( .1.).strengtnap es. — 
compute_strength(1,0,1,1, 1,0) 27.0) 
analogy candidates) ae 
ana logyaeand de ee alse 
end: 
for 1:= 1 to newrecord.analogy_info.num_analogies do 
begin 
newrecord.analogy_info.analogies(.i.).analogy_index:= 
Pick Destuanatagy. . 
newrecord.analogy_info.analogies(.i.).date:= 
history(.newrecord.analogy_info.analogies(.1.) 
.analogy_index.).date; . . 
newrecord.analogy_info.analogies(.1i.).unit:= 
history(.newrecord. analogy_info.analogies(.i.) 
~analoGy _1nGes junit . 
newrecord. ana logy_info- analogs aes oe 
compute_strength(1,0,1,1, 2) 27032) ae , 
newrecord.analogy_info.analogies(.i.).analogy_index) 


end; 
print_fuel_reasoning; 
adjust(5); 
for 1:= 1 to num_candidates do 
begin 


analogy_candidate(.i.).strength_pts:= 
compute_strength({1,1,1,l,i491 3,12 
. analogy_candidate(.i.).index_num); 
Fee h es ceas ha) 2 e/ch alse 
end; 
for 1:= 1 to newrecord.analogy_info.num_analogies do 
begin . 
newrecord.analogy_info.analogies(.1.).analogy_index:= 
pick_best_analogy; . 
newrecord.analogy_info.analogies(.i.).date:= 
history(.newrecord.analegy_info.analogies(.i.) 
-analogy_index.).date; 
newrecord.analogy_info.analogies(.i.).unit:= | 
history(.newrecord.analogy_info.analogies(.1.) 
.analogy_index.).unit; . 
newrecord, analogy_ nfo: ana og (eee oo 
compute_strength(1,1,1,1,1,1/1 73) ae . 
j newrecord. analogy_info.analogies(.i.).analogyv_index) 
ena: 
print_ammo_reasoning; 
eiey tise a, 
adjust(8); 
Ads oe 
adjus't4 10 
adjust(1l 
adjust(1z 
adj uses 
adjust(1¢ 
adjustpi5 
adjuseyls) 
adjust(17)} 


adjust(18) 


« 
é 


“=e se “ee “@ “@ ~Oe “BO 


~ 
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end 
else for adjustment_index:= 1 to num_supply_items do. 
newrecord.consumption(.adjustment_index.).adjustments:= 0; 


pease : 
end; (*end procedure adjust_estimate%) 


begin (*begin procedure create_estimate*) 
water_estimate; 
class_I_estimate; 
Compu -eugenemasmsloplies( 4, 3.67); 
compute_ceneral_supplies( 6, 4.00); 
compute_general_supplies(19,15.00); 
compute_general_supplies(20, 1.22); 
SOmeeomeeneralssSupplies( Zia 2.50); 
diesei_fuel_estimate; 
Be eee Let On = first_day then 
egin | 
compute_ammo ( ede og) ge Ore) 12) quantity , 
Se 29, 35, 10,12): 
compute_ammo( 8,taskforce(.15.).quantity,7,9,4,6,3,4); 

SUNG omecsweOnce .lo. ).duamurey .2,5,).2 71,1). 
compute_ammo(10,taskforce Co). Guamumeveste,425,240,2/5,132,148); 
Somemecmanioll, edsnrorce(. &.)-quantity,3/4,920,229,316,115,160); 
Scvemecmagme vl? ,caskrorce(. 9.) quantity, 286,395,166,255, 34,115); 
compute_ammo(13,taskforce(.11 eae re 2100 aa 
compute_ammo(14,taskforce Sy). Guanerty Sa neo oe 

eeieuvemanmer io, taskferce(. 6.).quantity,109,130,61,73,20,24 
compute_ammo(16,taskforce(.17. -quantity,175,210,99,118, 33,39); 
Comoucemanno (17, taskforce( 16.) quantity ,433,519,243,292,81,9 \; 
pone uemenme 1S ,.taskiorceta1 2. .quantity,99,118,56,67,19, 22) 
en 
ESS leystaialel 
compute_ammo ( eg raged eee evagea= Once Vale quantity. 
Pegorlo,21,5,7):; 
acilidnetew.6,10,5,7 7-374 ):; 


compute_ammo( 8,taskforce(.15. 

eongucemanmo, 9,taskforce(.16.).quantity,3,4,2,2,1,10); 
compute_ammo(10,taskforce(. 7. eee ee ee cs 
Sete cmc taskrOnce wo.) salamelcy, 574,030 ,229,524,120,163); 
compueomampener2 »staskroree, . Sa j.cquantiey, 261 ,363,181,235,82,106) ; 
compute_ammo(13,taskforce(.1l. pean ee Do OO men 1020 1208 - 
ecnpuromamo, l4,tasktorce(. 5.).quantity, 53,70,30,40,10,13); 
Senpreesanme 15 taskforce( 96.) .quanerty,59,79,33,45,11,15)-: 
compute_ammo(16,taskforce(.17. .quantity,96,127,54,72,18,24); 
Sonmeueomammo il? , tasxtorce(2.8-)).quanticy ,236,314,133,177 ,44,59); 


Eonoueomeamno lS, taskforce(.19.).quantity,54,72,30,40,10,13) 
err: 

adjustiestimate; . 

for et:= 1 tCoOomumesupply_items do 
MewRecovercomsumptiony.2.).final_estimate := 
Revwrecord. coOnsumptionie..).general_estimate + 

™ mewrecord.consumption(.i.).adjustments; 
mereecounter:= f1lescounter + 1; 
history(.file_counter.):= newrecord 
end; (*end procedure create_estimate”) 





procedure print_estimate; 


var 
7 i : integer; (*index variable for printing consumption array*) 
egin 
page;writeln;writeln; 
write(! Ns 


writeln('AUTOMATED LOGISTICS PLAN'); 
writeln;writeln;writeln; 

writeln('DATE " newrecord.date); 
Peireiny UNIT ' newrecord.unit 


e 
7 
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case newrecord.tf_type of 


armor : writein('TASK FORCE TYPE ARMOR'); 
mech : writein('TASK FORCE TYPE MECHANIZED '); 
inf : writeln('TASK FORCE TYPE INFANTRY'); 


end; (*end case statement”) 
case newrecord.tf size of 


n ae ne ee FORCE SIZE BATTALION'); 
Ph 2 Writeln(® TAs OR Ghar BRIGADE'); 
ig 1S 
case newrecord.mission of 
attack : Tepeey eee ATTACK' ); 
3 eres : writeln( MISSION DEFEND! ); 
anol a 
case néwréecord. dua etonec= 
firstucay RE aaron FIRST DAVIE 
succeeding_day : writeln('DURATION SUCCEEDING DAY Sas 


end; (*end case statement*) 
case newrecords incendie 








hi : writeln ‘COMBAT INTENSITY HIGH'); 
mid : Writeln('COMBAT INTENSITY see 
Low : Writeln(!'COMBAT INTENSITY LOW'); 
end; (*end case statement*) 
writein('OPERATION NAME ' mewrecord.operation_name) ; 
case newrecord.area of 
conus : writeln('AREA CONUS ' ); 
eurcpe : writeln('AREA EUROPE'$; 
korea : writeln( 'ARER KOREA' ) 
end; (*end case statement*) 
wreitein(' COUNTRY ' newrecord.country) ; 
case newrecord.climate of 
hot : Writeln('CLIMATE HOT'); 
temperate : writeln('!CLIMATE TEMPERATE'); 
Cold : Writeln( 'CLIMATE COLD) 





end; (*end case statement*) 
Case Mevwnecoud. teunwarun Go: 


cpen : writeln(' TERRAIN OPEN'); 
woods : writeln(! TERRAIN WwOODS'}; 
built_up : writeln(' TERRAIN BUILT UP'); 
mountains: writeln(' TERRAIN MOUNTAINS '$; 


end; (*end case statement*) 
case Nevwrecera ict o iE nC yon 


Good 3) Wi uel a Vicia cis GOOD'); 
Pade ; Wheeler roleruly FAIR! ); 
poor ee Veee ia) hs Pe tir i POOKG ge. 


end; (*end case statement”) 
if newrecord.AF_ground_spt = true then 


writein('AF GROUND SUPPORT YES!) 
else writeln('AF GROUND SUPPORT NO'); 
if newrecord.moppcondition = true then 
writeln('MOPP LEVEL 3/4 YES!) 
else writeln('MOPP LEVEL 3/4 NO'); 
writeln('PERSONNEL STRENGTH ' newrecord.personnel_strength:4) ; 
if newrecord.ration_policy = b_c_b then 
wWriteln’’ RATION Polley baceip ey) 
else writeln('RATION POLICY feie jo!) 


whiteln:writeln; 
write('HISTORICAL DATA AVAILABLE ); 
2£ newrecord.analogy_info.num_andlegies 330 3tmen 


pegin 
writein( 'YES'); 
writeln; 
write(' DATE  ‘'); | | 
for 1:= 1 to newrecord.analogy_info.num_analogies do 
ys te(newrecordienstogy 1150 aa ,datem i 
writeln; 


write(' UNIT '); . 
for i:= 1 to newrecord.analogy_info.num_analogies do 
write(newrecord.andloqy_ info. aneuceie (aa aia '); 
writeln; 
end 


8S 


else writeln('NO'); 

writeln; writeln; 

write 

tie ite in( 'LOGISTICS ESTIMATE'); 
writeln;writeln; 

Pru ce @eeoUreLY ITEM 

rete Lia! FINAL EST.'); 
Wiadtedia: writeln;: 


GENERAL EST. 


hap 


ADIUSIMENTS‘); 


.supply_item); 
.general_estimate:6); 


.adjustments:6); 


final_estimate:6); 


).unit_of_measure) ; 


for i:= 1 to num_supply_items do 

begin . 
write newrecord.consumption(.1.) 
write ee: 
write newrecord. consumption(.i.) 
Ole a els ie 
write Mer ecere concumpticn dt) 
write('! hs 
write newrecord. Gonsunptaconi(aay ) . 
write 
writel Me ukecond: SOneoumptlon(.4.. 
writein 

end; (*end printing out consumption array”) 

end; (*end procedure printestimate*) 


begin (*begin log_estimate*) 
ial task force ; 
create_scenario; 
reate_estimate; 
print_estimate; 


end; 


(“end procedure log_estimate*) 


MODULE HISTORY UPDATE. 


MODULE AISTORY UPDATE 


BP dure history_update; 


var 
Mecate tecord : oprecord: (*record to be updated 5 
1 integer; \*index i BuO tieemistonical smulec > 
found boolean: feaue Pe hecond found ih histery tiles * 
continue_char char; (xuser response to continue with program”) 


procedure readunit; 
const 
blanks = ! - 
: boolean; 
Giaty - 
UnLEString; 


answer 
unitname 
begin 

ok:= false; 

epee 
ae 
writeln('For example- 1/33rd ') 
readln(unitname) ; 
strconcat(unitname, blanks); 
writeln; 


'Fnter name of unit which conducted the 


operation! ); 


writeln('The name of the unit was ', unitname); 


writeln;writeln; 


writeln('Is this the correct unit name?'); 


Writeln(*Enter the number corresponding to your 


answer.!); 


writein( | Pec eethaeenane 15 Correct ne 
Write int ' 2 -snhoveeeineeemnane 15 incorrect! ); 
readin( answer ); 
if answer = '1l' then 
begin 
update_record.unit:= unitname; 
ok:= true 
ena 
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until ok = true; 
writelin; 
end; (*end procedure readunit*) 


procedure readdate; 


var 

Ok : boolean; 

newdate : datestring; 

answer 3: Char; 

begin 

ok:= false; 

Lesede 
writeln('Enter the date on which the operation took place.'); 
writeln('Use the form dd/mm/yy'); 
readin(newdate) ; 
writeln;: 
writein('The date of the operation was ', newdate); 
weiteln; 
writeln( "Is this ethe) comnectecauen.s 
writeln('Enter the number corresponding Eo your answemu 
weite La! 1 - yes, date is correct ; 
write ling 2=- no, date 1S Inconneeu. 
readin(answer); 
if answer = '1' then 

pegin 
ucdate_record.date:= newdate: 
ok:= true 
enc 
until ok = true; 
writeln; 


end; (*end procedure readdate*) 


procedure readmission; 
var 
Ok 7 DOCTedue 
Moss ton code = enau. 


beqin 
writeln('Enter the number corresponding to the correct mission.'); 
writeln('! peswattack  ')- 
Wieder 2- defend '); 
ok:= false; 
repeat 
readin(mission_code) ; 
If Mission code =. 19 then 
becin 
update_record.mission := attack; 
Ook:= true 
end 
else if mission_code = '2' then 
begin 
update_record.mission:= defend; 
OK:= true 
end 


else writeln('you have made an error in input, try again.'); 
until ok = true; 
writeln; 
end; (*end procedure readmission*) 


procedure readupdate_source; 


var 
ok : boolean; 
ANSWER erat: 
begin 


writeln('What was the source of the information for this update'); 
writeln; 
ee 


'Enter the correct number for your response'); 
writelin 


1 - estimate'); 
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writeln(' 2 = factualeeimtormation ') - 
ok:= ralse; 
repeat 
readln(answer); 
if answer = '1' then 
begin . 
istory(.i.).update_source:= estimate; 
ok:= true 
end 
else 1f answer = '2' then 
begin 
history(.1.).update_source:= factual; 
ok:= true 
end 


else writeln('You have made an error in input, try again.'); 


PiclinOm@a st LUCs 
weutelni;writeln :-wrateln 
end; (*end procedure readupdate_source™%) 


procedure input_consumption; 
var 
i: . eee variable into the consumption array 
amount : integer; *the user provided consumption figures 
begin | 
geen Pu moryCal, ) do 


writeln{ itens PiceceulcdieCONSUNpELON tO Gach Of tneusupoly ' 


writeln 
Wi eedea wr dee Li 
for j:= 1 to num_supply_items do 
begin 
ee eae the number of ');. 
write(consumption(.j.).supply_item,' '); 
IEMUCSREURDTLORT S| )une _of_measure, ' Eis 
readin(amount) ; 
writeln(amount) ; 
consumption(.j.).actual_consumption:= amount; 
writeln 
end; 
uodate:= true 
end 


end; (*end procedure input_consumption*) 


'are available, enter 0 .'); 


f 


Begin (*begin history_update*) 


writeln 
readunit; 
reacdate; 
readmission; 
Beta "false; 


eyeciny ures will now be asked information about the operation.'); 
'for which you have actual consumption data.!');writeln; 


:= 1; 
while (not found) and (not (1 > file_counter)) do 
Eas ad eee recouc cdo 


Dect | . . 

Peele StOry ri.) unit = unit) and 
Dead ae ere = date) and 
history(.1.).mission = mission) 

then begin 


found:= true; 
readupdate_source; 
lnput_consumption 
eiatel 
else 1:= 1+ 1 


enc: 
1£ found then begin 
writeln;writeln; 


a 


‘items that follow. If no actual consumption figures | 


. 


pice tee record has been updated .') 
en 


else 


begin 


hee (cna is no record in the historical file ewire ee 


Wr ewn } 
pidge COE: your input and try again ') 
end; 


writeln( Enter eG to conemnue. 
Fepeat 


readin(continue_char) 


until continue chaheaw1c = 


ie 
eria- 


ge. | 
(end procedure history_update*) 


‘matches the unit,date, and mission you have speci ied!) 


(AAKKAKARAAKKAKKAKK AK AK ARK A AKA ARKKAKAA RAK RR KKK RAK KKK RRKKAKKAKAKAKAAKKKK KKK 


MODULE “BEEBE RECORD 


AKARKKKKA ARK AK RAK KEK KK RAK A AKK RAK RK AKA RAK KAR KAKA KARA AKA RAK RAKKRKKKKK AK KK KR J 


procedure delete_record; 


var 
delete_record : oprecord; (*name of record to be deleted * 
1 : integer; Xindex into the historical files a 
found : boolean; Xtrue if record found in histony@iioouee 
CONnLINUe Char... ena: x 


procedure reaaunit; 


const 

blanks = ! Is 
var 

ok ; boolean; 

answer jp oCitents. 

“nitname +e Uundtestring: 
begin 

ck:= false; 

repeat 


ein eee name of unit which conducted the 
writeln( For ecample-1/33nae 9 
readin(unitname) ; 
strconcat(unitname,blanks); 
Wee in. 
writeln('The name of the unit was ', unitname); 
writein;writeln; 
writeln('Is this the correct unit name?!) 
wricela('Enter the number correspondinagmeomour 
writeln('! 1 - yes, unit name is correct Ne 
write laa 2-~- no, unit name is incorrect’ 
readin(answer); 
1f answer = ‘1! 
begin 
Gelete_record.unit:= unitname; 
ok:= true 


= 


/ 
° 
/ 


then 


end 
rtd LO eaeeiuier 
writeln 
end; (*end procedure readunit*) 


procedure readdate; 


var 
OK 


newaate 
answer 


boolean; 
aagbesening. 
char; 


ee ee e¢ 


begin 
oie false; 


rep 


eae 


Xuser response to continue program 


operation'); 


answer.!); 


det eehueoeare the date on which the operation took place.'); 


writeln('Use the form dd/mm/yy'); 
readin(newdate) ; 
writeln; 


a2 


f 


writeln('The Gate of the operation was ', newdate); 
writeln; 

writeln('Is this the correct date?'); 

writeln('Enter the number corresponding to your answer.'); 


writeln(' ie swmeadle lomcorrect. ~ ); 
writeln('! 2- no, date is incorrect' 
readin(answer) ; 
if answer = '1' then 
begin 
delete_record.date:= newdate; 
ok:= true 
end 


until ok = true; 


writeln 


end; (*end procedure readdate”) 


procedure 
var 


readmission; 


ok : boolean; 


mission_code : char; 
begin 
ok:= false; 
Peweau 
writeln Enter the number corresponding to the correct mission. 
writeln 1 = attack '); 
writelin 2- defend '); 
Peat aneeenien” code); 
if mission_code = 'i' then 
begin 
delete_record.mission := attack; 
ok:= true 
end 
else if mission_code = '2' then 
begin 
delete_record.mission:= defend; 
ok:= true 
end 


else writeln('you have made an error in input, trv again. 
until ok = true; 


writeln 
end; (*end 


procedure readmission*) 


procedure deletion; 


Var 


j. : integer; 


begin 
en j:= 


lam elo eolle Counter =! ado 


history(.j.):= history(.j+1.); 


file _counter:= file _counter -l 


« 
; 


writeln; Re bein 


writeln( 
end; (*end 


'The record was found and deleted. Wy 
procedure deletion”) 


Begin (“beginsmodule delete_record*) 


Beeline 
@oiteln 
writeln; 
readunit: 


'You will now be asked information about the operation. 
'that you want deleted. 


readdate: 
readmission: 
ean = false; 


eile. not found) and ence (i Sa fileacounter)) de 


va te 
be 


delete_record d 
in 
Pema Ory (.1..) sume = unit) and 


oe 


(*index variable into the history files*) 


a) 


Ds 


DRS OEY hee (ee = date) and 
his tomy, “mission = mission) 
then begin 
found:= true; 
deletion I 
end 


else i:= i+ l 


end; 
if (not found) -then 
egin 
writeln There is no record in the historical file) which 
writeln('matches the unit,date, and mission you have specified'); 
Writeln( Checks cir einen: ‘and try again ') 
end; 
writeln;writeln;writeln; ;write(' ye 
writeln(' Enter ¢ to continue! ); 
Leoear 
reacin( continues char) 
ntil continue cher = Je 


age 
eo: (*end procedure delete_record*) 


eee eee eee eee MODULE PRINT HISTORY 


MODULE RINT HISTORY | 


Vor 


- *index variable for history array a 
1 In eeger., *xindex variable for printing consumption array* 
for 3:= 1 to oc. a do 


See: (1 ); 
ie ae RECORD'); 
writeln:writeln:writeln: 








writeln('DATE Ra eeBEn sire Biren: 
writeln('UNIT history(.9.) sunmie 
GaSe Ti VStorve es ‘ e of 
armor : writeln TASK FORCE TYPE ARMOR'); 
mech +: writeln("1ASK RORGhan 2d MECHANIZED" ) > 
inf ; writeln( "TASK FORCE Gye INFANTRY'); 
end; (*end case statement”) 
Case his 20, yt.) uu size of 
bn : writeln ASK eORCEM OI Ze BATTALION'); 
bde ; writeln( 'TASK FORCE SIZE BRIGADE'); 
end: (*end case statement”) 
it history(. ae ) mission = attack then 
writ celn(' MISS LON ATTACK' ) 
else ries hg pro DEFEND'); 
case hisvory( .j.).duyationmo. 
first_day ae DURATION FIRST DAY'); 
succeeding_day:writeln( ' DURATION SUCCEEDING DAY ae 
end; (*end case “statement*) 
case histery(.j.). intensity on 
hi : ve coe 'CCMBAT INTENSITY HIGH'); 
mid : writein( 'COMBAT INTENSiay ae 
low : writeln( 'COMBAl Miles. LOW 
end; (*end case statement”) 
writeln(' OPERATION NAME ' history(.j.).operation_name) ; 
case hastory(.3.).aree of 
conus : writeln 'AREA CONUS'); 
europe : writeln('AREA FUROPE'); 
korea : writeln('ARZEA KOREA' ) 
end; (*end case statement”) . 
writeln(' COUNTRY | History(ly a) seo Bnei: 
ease history( 29.) climate: 
hot : writeln(! CLIMATE plough 
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temperate We ieeine (CLIMATE 
gold writeln( ‘CLIMATE 
end;(*end case statement”) 
ease history(.aa).terrain of 


open : writein( "TERRAIN 
woods Sev CLCe li eabonnet Nl 
Suet eaiS vritein( 'TERRAIN 
mountains: writelin(' TERRAIN 





TEMPERATE’ ) ; 
COED) 


OPEN'); 
WOODS'); 
BUILT UP') 
MOUNTAINS'); 


end; (*end case statement”) 
case hisvopvwede visibility of 
ood l writeln( 'VISIBILTY GOOD! 
au erred  VISIBILTY FAIR! 
poor mw ewWritein VISIBILITY POOR! 
Solely (wieiie, Sets eiec\ silsahaay) 
Boa history(. j.).AF_ground_spt = true then 
writeln('AF GROUND SUPPORT YES" ) 
else ees ae GROUND SUPPORT NO'); 
ie beeen smoppcondition = true then 
wri eo LEVEL 3/4 YES') 
else writeln('MOPP LEVEL 3/4 NO'); 


write( 'PERSONNEL ean 
Uitbein(history(.. 
emis On.) . ration ey, 
writeIn( "RATION POLEGY 
Ss uw Peedi AA EON POLICY 
tote ets EO Taya ead) 
case eae j.).update_source 
none > writeln( UPDATE 
estimate : eitein( ‘UppaTs 
factual : Writeln('UPDATE 
end (*end case statement”) 
else writeln(' UPDATE SOURCE 
writeln;writeln; 
write (HISTORICAL DATA AVAILABLE 


bc 


Pens holy aeneahe LOGy_info.niumeana 


SOURGE 
SOURCE 
SOURCE 


.).personnel _Sfrength 74); 
b 


then 


pieupdate = true) then 


of 

NONE' ); 
ESTIMATE')=; 
FACTUAL " )- 


NONE'); 


ee > 0 then 


mowers =~ 1 1bO history(. j.).analogy_info.num_analogies do 


begin 
Prewee EGS je 
writeln; 
write(! DATE 
begin 
write 
write 
end; 
writeln; 
write(’ UNIT Cie 
Home — 7 EO history. 
write(history(. 5 ay 
writeln; 


end 
Pelee ete Li ( owe) 
writeln; -writeln; 
write 
Write in(! LOGISTICS ESTIMATE'); 
writeln;writeln; 
Vieuce( SUrPPEY ILiEM 
writeln('! FINAL EST. 
writeln; writeln; 
for i:= 1 to num _supply_items do 
begin 
Raa history(. 
write 
wri te 
WiC Lee 
WC 
write 
write 
write! 
write(history(. ane 
write 


ACTUAL 


J. Peconsunpttony 
bistory(.j.) .consunption( 
history(.j.).consumption( 


history(.j.) .consumption( 


Cay 


) -analogy_ 
gl einige o.analogies(.i.).unit, 


GENERAL EST. 


); onsumption(. 


Vee .j.).analogy_info.analogies(.i.).date); 


info.num_analogies do 


Loe 


ADJUSTMENTS ' ) ; 


CONS 2"); 


.i.).supply_item); 


) 


.1.).general_estimate:6) ; 


ni) sao yUSuments io) - 


) 
.i.).final_estimate:6); 
) 


.actual_consumption:6); 


writeln(history(.j.).consumption(.1.).unitgeor measurescss 


writeln a. 
end; (*end printing out consumption array*) 
page | 
end (*end printing all the files in the history array*) 
end; (*end procedure print_history*) 


(KKAKKARKAKRA KARA AKA KK RAK KKK KAR RAR KAR RAK KKK KK KEK KARA KR ARK A RAK RRA KKK RAR KAKA 


procedure print_directory; 


var 
history_count : integer; (*index variable into hitory array 
continue char) ena. “user réeSpOnse tO COmMePnue Dragan oe: 
begin 
Writeln;writeln; 
write(! Loe 


write ln{( DIRECTOR). 

writeln;writeln;writeln; 

if file_counter = 0 then writeln('There are no files in storage.') 
else begin 


write(! DATE UNIT MISSION’); 
Writelin UPDATED') ; 
writeln; . 
for history_count:= 1 toe &£lle_counremmeo 
begin 
write(' | history( .histenyecount. darter 
write(! | history( .histornyeceunt | lm me 
if history( .hhistory_count.).missicns—saerae «seem 
write('! ATTACK! 
else oe DEFEND'):; 
MEMES tory: -history_count.).u date = true then 
writeln(' Yes) 
else writeln(' NO'); 
wPecein 
enc 
end; 
writeln; 
write('! Lis 
writeln('snter € toecontinue 
Pegeae 
readlin(continue_char) 
until continue_char = 'c'; 
nace: 


end; (*end precede, printedinectony.» 


MODULE END_SESSION 
RAK ARK KAA K RK AR ARK RAK ARK AK KRR RAK KK RRR KK RRR RAK RK RRR RK KARR RR KAA AKKAKE ) 


procedure end_session; 


var 
i, = integer; (*index variable to write historical files to . 
| secondary memory ) 
begin 


tinished:= true; 

rewrite(history_file, 'hist oprecord a'); 

for i:= 1 to file counter do 

write(history_file,history(.i.)); 

writeln;writeln; 

wreiteln('This session is now over.'); 

write liye mel: | 

writeln('Tne key to modern warfare is logistics!') 
end; (*end procedure end_session*) 
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( AARAKRAAKARKRA RA RRA RAK RRA RKA AKA RAKARKARKA RAK KKK RARKARKARRAAKKKARRRAAKAKKAR ARK A 


MAIN PROGRAM 
RAAKKK KKK AKA RAK KKK KAR RAR KK KKK RAK KK AKKKA KAA AK KARA EKKKKKEKK RAK RK KRAK RARE ) 


begin (* main program *) 
initialize; 
repeat 
module choice; 
case module _code Ge 


ae trom estimate; 

C2 iS COG update; 
'3' : delete_record; 
'4' ; orint history; 
PS) eon “directory; 
He)! end_session 


end; (*end case statement*) 
ati 1 ‘finished = true 
end. (*end main program*) 


oH 


APPENDIX E 
PARTIAL PROGRAM IMPLEMENTATION IN COMMON LISP 


This program is a partial implementation of the automated-logistics-planning 
svstem in Appendix D. Specifically, this pregram performs the referencing and 
calculations necessarv to create the general estimates for the same supply items 
identified in the automated logistics plans in Appendices A and B. The driver of the 
program is function try. The principal data structures of the program are the user- 
defined structures: operation, task force, and supply-item. The program accepts input 
data on task force composition and operation attributes in the same manner as the 
Pascal implementation of the program. There is no error checking done of user input. 
Function create-supplv-item performs the referencing and calculating involved in 
creating estimates in accordance with current Army doctrine. The program stops here. 
Two output documents are produced by the program: 

1. Task Force Composition 

2. Automated Logistics Plan 
These documents are almost identical to their counterparts in appendices A and B. 
The program does not permanently store information about the estimates it creates nor 
does it conduct any of the reasoning discussed in chapter 3. One of the interesting 
features of user-defined structures in Common Lisp is that after a structure has been 
defined, Common Lisp provides functions that insert and retrieve data from fields 
within instances of the defined structure. Make-< structure name> is such a function. 
It creates an instance of a structure. The format of this function results in code that ts 
easy to read and understand. Specifically, make-<structure name> requires the 
programmer to place the value for the fields of the instance of the structure next to the 


corresponding field names. The program follows. 
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(dertune try —() 
format 


e Wi Ly 


create-operation) 


format 
terpri) 
create- 
create- 
format 


C ft) WM 


Deseo ete) tere) 


taskforce 
Sora tem 


write-output) 


eee 


Wlegisties-output } 
Vl 


Ee 


taskforce-output) ) 


(defstruct operation 


aate 

GAle” 

mission 
climate 

ee 

Ee ye 
tf-size 
lntbensity © 
moopcondition 
pesscane las 
ration-policy) 


(defun create-operation () 


(setq opl 


(defun read-date ( 
peetp? 
‘ENTE 


Deine 


(prine 
read) ) 


make-operation 


(defun read-unit () 


Eerpr ds 
prince 
read 


sration-policy (read- 


) 
lee tg shen!) ieciaeheny (ie Sigor eat) 
THe DALE OF THE 


OPERATION. 


‘ENTER THE NAME OF THE UNIT. 
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:date (read-date) 

aibteb he read-unit) 

:mission read-mission 
:Climate ee eee 

:area read-area) 

onc pe ees a 

-EiE- Suze HeaG=—i-Size 
eens 1 eV Beadain tensity). 
:moppcondition (read-moppcondition) 
:personnel (read-personnel 


rations)))) 


a 


i. 


(defun read-mission () 
terpri) _ 
SN ‘ENTER THE MISSION TO BE PERFORMED. 
rea 


(defun read-climate () 


terpri 
prince ENDER THE CLIMATE IN WrleHe tHe 
terpri 
prince = OPERATION WILL CONDUCTED 
read) ) 


(defun read-area () 





terpri L) 

peznc aes THE AREA OF THE WORLD IN WHICH 
Ccpgiall ae! 

spring “ THE OPERATION WILL PAKEY PLAGE: 
read) ) 


(de fun Bee Ef Evin () 


ter 

prince “ENTER THE TYPE OF TASK FORCE: CONDUGEiITG 
ey SO Gee 
porns THE OPERAD ION: 

read) ) 


(defun read-tf-size () 
(terprs 
porns ENTER THE SIZE “OF THE TASK FORGE 
read) ) 


(defun read-intensity () 

terpri) 

prince “ENTER THE INTENSI@vee TecrsD. 
read) ) 





(defun read-moppcondition () 
terpri 
prince "DO YOU EXPECT THE TASK FORCE POSE raa 
terpri) 
Dring | MOPP LEVEL 3/4 ? 
terpri) 
epamkg ene. ENIER YEso Oneni2 
(read) ) 


(defun read-personnel () 


terpri 

Drinc ‘ENTER THE TOTAL NUMBSReOF Parse ier 
terpri 

DElne. IN-THE- TASK “FORGE 

(read) ) 


(defun read-rations () 


ferprd 
binc one THE RATION POLICY DURING THE 
erpri 
Pring « OPERATION. EITHER b-c-b onte-cap 
read) ) 
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a 


1) 
" 


a 
a 


a) 
iy) 


ue 


We 


i 
ns 
YS 


ty 
‘i 


i 
nS 


(defstruct taskforce 
m 


(defun create-taskforce () 
(setq tfl (make-taskforce :m2 


(defun read-data (x) 
Grerpri) 
princ "Enter the number of ") 
Princ x). 
peine.." in the: task zorce “"!) 
(read) 
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(read-data 
read-data 
read-data 
read-data 
read-data 
read-data 
read-data 
read-data 
read-data 
read-data 
read-data 
read-data 
read-data 
read-data 
read-data 
read-data 
read-data 
read-data 
read-data 


Im? 
m3 
SS 
“steht 


ry 


Um Olin! 
‘ml06al" 


rn OZ 
"m109 
lO 
Wer s 
'm163 
egse. 
Mim 

'm60 
"tows 
zz 2 


'm2mg 
"m60m 


"ml6a 


(defstruct supply-item 
water. 
b-rations 
Nre aeons . 
class-II-supplies 
diesel-fuel 
Ciass-IV-supplies 
ciass-Vil-supplies 
Sree. eee ee 
rpearaapti )e les 
tankx-ammo-105mm 
cow-=ammo 
dragon-ammo 
how1tzer-ammo-105mm 
howltzer-ammo-155mm 
howitzer-ammo-8in 
vulcan-ammo-20mm 
mortar-ammo-8lilmm 
morctar-ammo-107mm 
mg-ammo-.50-caliber 
mg-amrno-7.62mm 
rifle-ammo-5.55mm) 





(cefun create-supply-item () 
1 


(setq sup 
(make-supply-item 

:water. water-est) 
:D-rations Da bcves)) 
mre =rations | mre-rats) 
*Class-il-supplies compute-factor 3.67) 
:diesel-fuel diesel) 
:CLass-IV-supplies compute-factor 4 


:Class-VII-supplies compute-factor 1] 





foe eae a COMPUTE =faGtonm alee 
foe com emer o° 1es \compute-factor 2.50 
:tank-ammo-105mm (compute-ammo ie force-miaial 
taskforce-m2 tfl 2 
22 62 Zoe 
: tow-ammo (compute-ammo (taskforce-tows tie 
794624) 
:dragon-ammo (compute-ammo (taskion coe a 
showltzer-ammo-105mm (compute-ammo (taskforce-ml02 tfl 


| 376 423 244 378 132 { 
showltzer-ammo-155mm (compute-ammo (taskforce-m109 tf1) 

146 203 95 132 Sm 

:howltzer-ammo-8in (compute-ammo (taskforce-m110 Sell, 

130 177 85 115 a 


:vulcan-ammo-20mm (compute-ammo (taskforce-m163 tiie 
39&4 4800 2241 2700 % 
:mortar-ammo-81mm (compute-ammo (taskforce-m125al tile 


97 116 54 65 i8 gm 
:mortar-ammo-107mm (Compute-ammo (taskforce-ml0é6al til} 
109 130 61 73 200m 


:mg-ammo-.50-caliber (compute-ammo (taskforce-m2mg tfl) 
> 210 99 11833 

:mg-ammo-7.62mm (Compute-ammo (taskforce-m60mq tfl 
433 519 243 292 @& 





:rifle-ammo-5.56mm (compute-ammo (taskforce-ml6éal tim 
99 1138 56 67 190m 
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(defun water-est () 

(cones (and (equal (operation=climate opl) 'hot) 
equa Seber t moppcondition ay 
equal (operation-ration- Beate! opl 
“Soper aclonepersonne! opl oe ay5 

((and (equal (operation-climate op1) ieee 
equal eee ae ieee moppeonait ion aa 'yves) 
equal (operation-ration- coc Opole e-c-))) ) 
x (operation-personnel opl) 4 9) 
((and (equal (operation-climate opl) ees 
(equal deseo amie dpa 7tion 2 
jecaae Oper elon.' telone Bey opl 
*« (eperation=personnel opl) 4 9) 5 
((and (equal (operation-climate op1) se 
equal eee eens NS ae age LOM ea ‘atey), 
equal (operation-ration-policy opl) 'c-c~-b)) 
* (operation-pversonnel opl) 4.4 
((and (equal (operation-climate op1) temperate) 
equal Wee eerene Repeater oe a yes) 
Sqiaeepetabtonamartouepelicy opl) 'b-c-b)) 
* (operation-personnel opl) 4. 755 
({and (equal (operation-climate opi) ‘temperate ) 
equal ieee eee moppcondition age pete 
equal ee ration- ae ert opl) 'c-c-b)) 
* (operation-personnel opl) 2\5 
OC anemedia la(epcrattonoclimaremoo. ) Bre pace ste) 
equal (operation-moppcondition o no 
aie ees 3 DE t Sy ee 
See Opten i ration-policy opl) 'b-c-b)) 
(O3e cee lon-pensonnelmopl) 3.2) 
((and suet (operation-climate onl) Reni tea) 
equal feast een moppeed eren apt Malte 
equal (operation-ration- ee 5. 'c-c-b)) 


ee -b)) 


ever) 
'b-c-b)) 





x (operation-=personnel opl) Z. 
((and (equal (operation-climate op1l) Te 
equal (oe BePP ees Lesh)! eer 
equal eperacion~-ration- Bont sy. 55 
x “(operation-personnel opl) 3 
((and (equal (operation-climate opl) 7)) i} 
: 


equal (operation-ration- eae ) 
(operation-personnel opl) 3 
((and (equal (operation-climate opl) -2)) 
(eaua. Reger aetcns Sgpe eins Tete pl 


‘edad eee. rick: nop peon iljealeygl fee yth 


ecqudiuepelation—racion. ete 5 
(operation-personnel opl) 3 
((and (equal (operation-climate opl) eae 
equal eee moppcon eee Cp ho) 
equal eration-ration-pol ay O 6-01) 
* “(operation-personnel opl) 3 255) 


(defun b-rats () 
(cond equal (Spebation-ration-policy opl) 'b-c-b) 
(operation-personnel opl) 2)) 
cs (operation-personnel opl))) 


(defun mre-rats() 
eon ecedual (Operation-rpartien— shes Get) 'C-G=p) 
(Opera On-pessonie opi) 2 
(t (operation-personnel opl))) 


(defun compute- ee Oe) 
Hi * (operation-personnel opl) x ) 2000)) 


(defun diesel () 
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taskforce-m3 
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(cond veavat (operation-area opl) 'korea) 
taskforce-m2 crag) Se) 6.4) 
x (taskiomeceme (ea5 IL eee) isin 
“a (taskionee=m2 Go 55 ome 
~ (ftaskforce=m3 wal a0 6.4 
~(Casikitouee ms Che 5.0 ome 
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* (taskforce-m113 til 5.9 “ono 
* (taskforce-m113 cpa b. 5 Ome 
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* (tCaskforee-miZoalemee. 4.1 se. 
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* ( LaSKSORCE ml 2 5a uae S.0. Ore 
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(defun compute-ammo 


(cond 


(and (equal 
equa 


((and (equal (operation-missicn opl) ‘defend 


equal Rpecae mannan censaty op1) 


ey ys 


es (taskrorce=mirs aie Il 
* (taskforce-mirs sical 
* (taskforce-mirs jap iL 
xX (taskforce-m163 ee ll 
* (taskforce-ml63 eae 
aS SeOwee lio 3 aaa 
x (taskforce-m730 fee 
* (taskforce-m730 eg I 
x (taskforce-m730 fr: 
WM taskhorce-m1 esl 
ee cas fonce =m epual 
x (taskforce-ml jeseuk 
* (taskforce-m60 en Il 
(x (taskforce-m50 fe fel 
yet casKkrorce-m60 eal 
elec (operation-area opl) 
+(* (taskforce-m2 Pe) 
* (taskforce-m2 til 
-X (taskforce-m2 eal 
* (taskforce-m3 a al 
= A tasktouce-Mms tal 
~SbasKk hence M3 ine 
SGuasktekee-mills jeje 
* (taskforce-mll13 agl 
* (taskforce-ml113 Eid 
we tasiktonvecamoL Sal 
X (taskforce-m901 teu 
P Ctasktonce-mo0l aa 
x (taskforce-ml25al tfl 
* (taskforce-ml25al tfl 
PPX Laskeorce-mlizbsal tel 
* (taskrorce-ml06al tfl 
* (taskforce-ml06al tfl 
x {taskforce-mi06al tfl 
X (taskforce-ml102 festeal 
* (taskforce-m109 Peed 
x (taskforce-m109 aaa 
“thraskrorce-mlO9 Eft 
x (taskforce-m110 seal 
X (taskforce-ml110 eora 
* (taskforce-m110 (ese ll 
* (taskforce-mlrs ell 
RaestckeOrece-mirs trl 
* (taskforce-mlrs ok 
a (task femee=mi6se00 tat 
x (taskforce-ml63 ee aii k 
xk (taskforce-m163 1a eek 
* (taskforce-m730 nal 
* (taskforce-m7 30 oad 
* (taskforce-m730 ail 
% taskforce-ml (esal 
x (taskforce-ml jepaee 
3 taskforce-ml el 
* (taskforce-ms0 soa! 
(* (taskforce-m60 esau 
(* (taskforce-m60 ope 
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((and (equal (operation- mission opl) ness 
equal (operation-intensity opl) 'mid)) 
= 
((and (equal (operation-mission opl) 'defend) 
equal (Coperation-intensity opl) 'mid)) 


Cad (acne (operation-mission opl) ee 
equal (operation-intensity opl) 'low)) 


x 
((and (equed Sr ste: mission opl) ‘yuh: 
race hy aaa intensity opl) '‘low)) 
He 


(defun write-output \ 
terpnt)( touema, Ce 


princ : ERATION") 
Sent ac ") 
prinl (operation-date opl)) 
Bea Pgh se) 
ieee (operation-unit opl)) 
eerpes) mission -) 
(prinl (operation-mission opl)) 
Sine | climate ") 
prinl (operation-climate opl)) 
een area ue 
prinl (operation-area opl)) 
eee Cos ype B 


prinl (operation-tf-type opl)) 


a 
Cet rpri 


Deine <. Ser gape i) 
Drinl (operation-tf-size opl)) 
terpri) 
prince: intensity x 
Brant vopenaely intensity opl) 
(terpri) 
prince moppcondition it) 
a sora moppcondition opl)) 
terpri) 
princ " personnel-strength x 
ie sooo ay personnel opl) 
weno) 
Deince: Yation-poltey, i 
(Oran Sia ration-policy opl)) 
(terpri) 
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(defun taskforce-output () . 
terpri)(terpri) Boop cerprt) (ter ats 
Boinc.” Teoneencek COMPOSTTION” 
Detgm| eo ert) (tee reap i 
Digmoeme tic JNberLGHEING. VEHICLE iW) 
So alae te) 
terpri 
atte Pomerat ING a CLE " 
prinl (taskforce-m3 tf1l)) 
terpri 
princ ' M113 PERS CARRIER i) 

Gia Edsktorec=mil3 til) ) 
erpri 
Dee NSO Car VEN iny i) 
ea cua oO? jetell ye 
erpri 
princ " M125Al 81MM CARRIER i) 
Pigiientaskronce=m!25al cfl)) 
Pees ei 
ice ! M1O06Al1 107MM CARRIER ue) 
prinl (taskforce-ml06al tf1l)) 
meron 
Prine. 102 105MM HOWITZER uy) 
aes eoece mL 0d even). 
terpri 
Boraine | MiO9 155MM SP HOWITZER a) 
\prinl (taskforce-m109 vcd} 
ag’ 3) ON GL 
Paine M110 8INCH SP HOWITZER Ns) 
ape aco Once am TO ee lan)) 
Cerprl 
princ ' LAUNCH-LOAD MLRS my) 
Drinl (taskforce-mlrs tfl )) 
terori 
Brine ‘'' M163 VULCAN AIR DEFENSE i) 
poesia,  castforee-miosmerl.)) 
\gejeovenk 
pEane ! M730 CHAP AIR DEFENSE Py 
prinl (taskforce-m730 tfl1)) 
mer Di 1 
peine.” MI TANK 10st , 
Binie (ctdsksorce=mi til )) 
,cerpri 
(prince " M60 TANK 105MM ) 
LBaeeugese seer ce=me0 eal) ) 
(terpri 
jorinc ' TOW LAUNCHER iy) 
eee eMp ce oe nerce” tows tEL)) 

Beno): 

jong alge ' M222 DRAGON LAUNCHER i) 

Prinl (taskforce-m222 tf1)) 

Sige eat 

pr ine M2 50 CALIBER MG up) 

prinl (taskforce-m2mg tf1)) 

Re! seo " 

prinl (taskforce-m60mg tfl)) 

Us) ajo) gal 

Morine " MIGAl RIFLE i) 

(prinl (taskforce-ml6al tfl )) 

Peormat t " ")) 
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(defun logistics-output () 











terpri)(terpri 


pF inc | LOGISTICS ESTIMATE ") 

erpri)(terpri) 
rinc " SUPPLY ITEM ~ GENERAL ESTIMATE") 
erori)(terpri) (ceron 

princ " Water . nF 

format t " 10D" (round (supply-item-water supl))) 

princ.|\.. (gattonay 

terpri 

Dele u, B-Rations Hy 


Format t “ 2epy (supply-item-b-rations sup1) ) 
ring “wa tronsi7) 


pinc |  SMREak aero | ut) 
format t " 10D" (supply-item-mre-rations supl)) 
Lanner Pabaens ny 


erpri) 
8) aol ever a Class II Supplies o 
(format t ' 10D" (round (supply-item-class-II-supplies sup1l))) 
princ “ STONS Ny) 
ieigelar’)) . 
peanc '. Diesel puer i) 
format t " 10D" (round (supply-item-diesel-fuel supl))) 
Shiner gallons ") 
terpri) 
pine Class IV Supplies “| 
formatet “Top” (round (supply-item-class-IV-supplies supl))) 
Diimc “Stns 4) 
terpri) 
princ " Tank ammo 105mm 2 
format t " 10D" (supply-item-tank-ammo-105mm sup1) ) 
Pinch! rounds nj 
erpri) 
pine <2! TOW ammo A 


format t " 10D" (supply-item-tow-anmo supe) 
prance “ “roundea) 


princ " DRAGON ammo . i) 
format t " 10D" (supply-item-dragon-ammo sup1l)) 
prince © Jrounds 1») 


Howitzer ammo 105mm | a 
format t " 10D" (supply-item-howitzer-ammo-105mm sup1)) 
Daan, | rounds '') 


pyinc “ Howitzer ammo 155mm | H 
format t ' 10D" (supply-item-howitzer-ammo-155mm sup1)) 
pring. rounds '') 


Eero) 
princ " Howitzer ammo 8 inch | i 
format ' 10D" (supply-item-howitzer-ammo-8in sup1)) 
Dine te. “eetncs 1) 
terori) 
princ " Vulcan ammo 20mm i) 
Pormace cu!) OD! (supply-item-vulcan-ammo- 20mm sup1) ) 
on rounds'' ) 
erpri) 
Heine. Mortar ammo 81mm Ny) 


format t " 10D" (supply-item-mortar-ammo-81lmm sup1) ) 
Prone) rounds =) 


yrinc " Mortar ammo 107mm ) 
format t " 10D" (supply-item-mortar-ammo-107mm sup1) ) 
Saimea. rounds '') 


princ ". MG ammo s0neqiber, i) 

format t " 10D" (supply-item-mg-ammo-.50-caliber supl)) 
pirine ey rounds i) 

terprl) 
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paanc. " 
format t 
Paine. 
terpri) 
opal eee 
format ¢t 
ogines 
cterpri) 
prance" 
rormat ¢t 
Barc 
erpri) 
jaye gio) 
format t 
pr ices 
(terpri) 
Wprinc " 
‘Weormat t 
Werinc | 
({terpri)) 


MG ammo 7.62mm_ y 
" 10D" (supply-item-mg-ammo-7.62mm sup1) ) 
rounds '') 


rifle ammo 5.56mm 2) 
" 10D" (supply-item-rifle-ammo-5.56mm supl)) 
rounds '') 


Class VII supplies es | 
i 10D" isguag (supply-item-class-VII-supplies supl))) 
>LONS 


Class VIII supplies at . 
" 10D" (round (supply-item-cilass-VIII-supplies supl))) 
STONS '") 


s IX supplies ) 


Clas 
" 10D"(round (supply-item-class-IX-supplies supl))) 
SOs!) 
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